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ABSTRACT 


The purpose of the HEPCAT (Houston Engine Performance Calculation and 
Transient) computer program is to provide an engineering tool which can perform 
automatic data reduction and test data analysis in support of rocket engine test 
programs conducted at the MSC Thermochemical Test Area (TTA) . This document 
describes the program and provides both the user's and programmer's manuals. 

HEPCAT is functionally divided into three areas: data acquisition and 
reduction, steady state engine performance analysis and the reduction of data, 
to standard conditions for run-to-run test correlation. All of these functional 
areas of the program can be user specified to both read and output the test 
data in a sequential converted format. Data reduction takes place automatically 
when the user utilizes the steady-state engine performance and the engine 
standarization options. The program has the flexibility to provide the user 
with the option to output any parameters available from calculations or meas- 
ured data. Included in the user's manual is the engineering formulation, pro- 
gram operating instructions, validation sample case and the data tape for- 
mat of the TTA SEL 600 Computer operating in mode 3. 
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1. PROGRAM DESCRIPTION 


A data reduction program for evaluating engine performance parameters 
from ground tests conducted in the MSC Thermochemical Test Facilities has been 
developed in support of the MSC Auxiliary Propulsion and Pyrotechnics Branch. 

This program provides a rapid scan of large quantities of data recorded on 
magnetic tape at the test facilities, computes steady-state engine performance 
parameters based on the test data and reduces the performance parameters to 
standardized test conditions. In addition, the program provides the capability 
for plotting all calculated or measured parameters. The program was developed 
to process test data regardless of the errors encountered on the data tape. 

1.1.0 THERMOCHEMICAL TEST FACILITIES 

The propulsion test setup for the gas/gas system is located in Bldg. 353 at 
the MSC Thermochemical Test Area (TTA) and in general consists of supply tanks for 
both hydrogen and oxygen gases, main shutoff valves, two pressure regulators in 
series, orifices, main and ignitor lines, engine and ignitor shutoff valves and 
facilities for a multipe configuration test engine. Distributed throughout the 
test system are pressure and temperature sensing devices which provide the data 
measurements recorded during an engine test firing. A simplified schematic of 
the installation and location of measurements is presented in Figure 1-1. 

During a test firing the data parameters are permanently recorded on mag- 
netic tape by a SEL Digital Data System Computer. This computer multiplexes 
the data in a unique non-sequential cyclic manner as illustrated in Figure 1 -2. 
The cyclic channel sampling presented in Figure 1 -2 conforms to the Mode 3 
(normal operating mode) multiplex sequence by the SEL 600 in this test facility. 

As shown on the figure, the sample rate for channels 1 through 30 (500 S/S) 
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FIGURE 1 -1 






CHANNEL NUMBER 


SEL 600 MULTIPLEX SCHEME - MODE 3 
(CHANNEL SEQUENCING SCHEME) 


REFERENCE TIME 



FIGURE 1 -2 
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are twice that of Channels 31 through 50 (250 S/S). The magnetic tape gen- 
erally contains data from one day's testing which can be up to approximately 
25 engine pulse test runs. Figures 1 -3 through 1 -15 present possible 
configurations for measuring temperature, pressure, force and flows for both 
gas or liquid systems using the TTA SEL 600 Digital Data System. 

Table 1 -1 presents typical SEL 600 Computer Test Channel Assignments with 
respect to test variable name and symbol. 
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FIGURE 1 -3 
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FIGURE 1 -4 
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FIGURE 1 -5 
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FIGURE 1.-6 
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FIGURE 1 -7 
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FIGURE 1 -8' 
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FIGURE 1 -9 
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FIGURE 1 -10 













FORCE MEASUREMENT 
PROPULSION TEST FACILITY 


FIGURE 1 -11 













FLOW MEASUREMENT - GAS 
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FIGURE 1 -12 
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TABLE 1 -1 


Typical SEL 600 Computer Test Channel Assignments 



Test Variable Name 

Variable Symbol 

Channel 1 

Thrust 

F 

2 

Chamber Pressure 

PC 

3 

Fire Voltage 

FV 

4 

Fuel Injection Pressure 

PFI 

5 

Oxidizer Injection Pressure 

POI 

6 

Fuel Ignition Injection Pressure 

PFII 

7 

Oxidizer Ignitor Injection Pressure 

POI I 

8 

Fuel Orifice Total Pressure 

PTFO 

9 

Oxidizer Orifice Total Pressure 

PTOO 

10 

Fuel 'Orifice aP 

PDFO 

11 

Oxidizer Orifice AP 

PDOO 

12 

Injector Fuel Cavity Pressure #1 

PFIC1 

13 

Injector Oxidizer Cavity Pressure 

POIC 

14 

Injector Fuel Cavity Pressure #2 

PFIC2 

15 

Spark Signal 

SS 

16 

Turbine Flowmeter Fuel Inlet Pressure 

PFTI 

17 

Turbine Flowmeter Oxidizer Inlet Pressure POTI 

18 

Fuel Injection Temperature 

TFI 

19 

Oxidizer Injection Temperature 

TO I 

20 

Chamber Temperature #1 

TCI 

21 

Chamber Temperature #2 

TC2 

22 

Chamber Temperature #3 

TC3 

23 

Chamber Temperature #4 

TC4 

24 

Chamber Temperature #5 

TC5 

25 

Chamber Temperature #6 

TC6 
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TABLE 1 -1 (Continued) 


Channel 


Test Variable Name Variable Symbol 


26-31 

Not Assigned 


32 

Fuel Orifice Inlet Temperature 

TFOI 

33 

Oxidizer Orifice Inlet Temperature 

TO 01 

34 

Turbine Flowmeter Fuel Inlet Tenraerature 

TFTI 

35 

Turbine Flowmeter Oxidizer Inlet Temperature TOTI 

36-39 

Not As si gneri 


40 

Turbine Flowmeter Fuel Flowrate 

WFT 

41 

Turbine Flowmeter Oxidizer Flowrate 

WOT 

42-49 

Not Assiqned 


50 

Run Annotation 

RUNNO 
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1.2 Method of Solution * - 

The HEPCAT (Houston Engine Performance Calculations and Transients) Compu- 
ter Program has been developed based on the TTA data processing requirements 
and the engine performance parameters required by NASA/MSC to perform engine 
tradeoff studies. 

1.2.1 HEPCAT Functional Requirements 

The functional requirements of the HEPCAT Computer Program are to read 
the SEL 600 data tape, demultiplex the data, time align the data, reduce the 
number of data points, perform engineering performance evaluations and math- 
ematically reduce the test engine parameters- to a set of standardized con- 
ditions so that run to run test comparisions can be accurately evaluated by 
the user. The functional output of the program is a history tape, microfilm 
data tape, printed output and a demultiplexed printed raw data dump. Function- 
ally the card input required to operate the program is divided into the follow- 
ing four categories: 

1 . Measurement parameters 

2. Tables of calibration curves 

3. Program constants 

4. Flag control card 

An overall layout presenting HEPCAT's functional categories which comprise 
the data reduction, performance computation and output is presented in Figure 1-16, 

1.2.2 Analytical Formulations 

In order to perform engine performance analysis, it is necessary to have 
the values of parameters measured during one sample (channels 1 through 50 
as shown in Figure 1.-2) aligned to a common time. The time alignment of data 
is the function of subroutine FILTR1 . In order to produce a uniform sample 
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FIGURE 1-16 "HEPCAT PROGRAM 












rate of 250 samples per second, values of parameters which are recorded twice 
within one sample are arithmetically averaged. Parameters which are recorded 
once within one sample are transferred together with the averaged values to 
correspond to the time associated with the midpoint of the sample. This time 
alignment of the data produces a maximum time error within one sample of 2 
milliseconds and since the “true" data can only be assumed between samples, any 
errors due to this time shifting are negligible. This relatively high sample 
rate is not used directly in the program at present, but will be important for 
future analysis of engine transients. 

The high sample rate data from FILTR1 is fed directly into subroutine 
FILTR2. FILTR2 reduces the sample rate by arithmetically averaging sequential 
blocks of five samples into one sample and time aligning the resulting average 
sample to correspond with the time of the middle sample in the original block. 
To avoid biasing the time of the average sample at the beginning and end of a 
engine pulse, the center of the five sample average is translated forward or 
backward in time to coincide with the beginning of the start and shutdown tran- 
sients. The recentering logic is activated at a threshold value of 3300 counts 
on the fire voltage. A fire voltage of 3300 counts signals the beginning and 
end of a fire pulse. A sample rate of 50 samples per second is output from 
FILTR2 and is more than adequate for engine performance analysis. Output from 
FILTR2 is converted to engineering units and the appropriate scales and instru- 
mentation biases applied in the Subroutine JHYDE prior to use with program con- 
stants and/or card input variables by the engine performance evaluation Sub- 
routines SWAGER and RATED. 

1.2. 2.1 - SWAGER (Engineering Formulations) 

The general flow diagram presented in Figure 1-17 shows the computational 
order of the equations in the Subroutine SWAGER. This subroutine computes 
the parameters used for evaluating engine performance. Nomenclature for the 
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terms shown in Figure 1-17 and in the following equations is presented in 
Appendix 1 . 

The following equations for the compressibility and ratio of specific 
heat for gaseous oxygen and hydrogen, including standard deviations, are the 
result of polynominal curve fits of NBS data and data from other sources. The 
equations presented are valid for pressures up to 100 atmospheres and temperatures 
ranging between 100 and 400° Kelvin. 

COMPRESSIBILITY FACTOR FOR GASEOUS OXYGEN: Z0X 

Z0X = 1 + B*P + C*P 2 + D*P 3 E«|. (1) 

Where: 

P = Pressure in atmospheres' 

B,C,D = Functions. of Temperature in Degrees Kelvin 

T = Temperature in degrees Kelvin 

2 

B = -8 . 7136945E-06 + 4. 606507E-01* ( - 1. 3795294E+02* (i) 

3 ' 4 ' T ' 5 

-2.1663662E+04*(i) + 2. 276559 7E+06*(J) - 2 . 2174297E+08*(-|) 

-+ 1.0580819E+10*(j) - 2.1920552E+ll*(i}- 

2 

C = 6.753855E-06 - 1.0277166E-02*(^) + 6 . 5537055*(i) 

-2.1384872E+03*(^) 3 + 4. 2428099E+05*(~)^ 

-5.3177903E+07*(y) 5 + 3. 2860596E+09 
-1.1314356E+11*(U 7 

2 3 

D = -1. 7671108E-10 - 6 . 3527586E-06*B + 1. 5610387E-02*B + 4.6457575*B 

+ 4.3213223E+02*B 4 + 7. 872519 3E+04*B 5 -F 2 . 8552410E+06*B^ 

+ 1.4952967E+08*B 7 
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COMPRESSIBILITY FACTOR OF GASEOUS HYDROGEN: ZH 


ZH = 1. - 5.3350829E+03*(|) + 1. 8336324E+02*(~) - 2.6772676 

+ 2. 1605597E-02*T - 1. 0357253E-04*T 2 + 2.924l458E-07*T 3 

- 4.4684258E-10*T 4 + 2.8380505E-13*T 5 - 3.9254562E-03*P 
+ 2.5326543E-05*P 2 + 4.572284E-10*P 3 + 6 . 1928900E-05*T*P 

- 2.94975 30E-07*T 2 *P - 2.5910804E-07*T*P 2 
+ 5.8954277E-10*T 3 *P + 8. 7135669E-10*T 2 *P 2 

- 4.247153E-13*T 4 *P - 9.5916114E-13*T 3 *P 2 Eq.-.;(2) 


Where: 

P = Pressure in atmospheres 

T = Temperature in degrees Kelvin 

SPECIFIC HEAT RATIO FOR GASEOUS OXYGEN : GAMMA0 

GAMMA0 - 1.4 - 1. 7457824E-02 + 1.9357917E-04*T - 7. 2588636E-07*! 2 

+ 1. 0841843E-09*T 3 - 1. 2549120E-12*T 4 + 0.1634301*P 
+ 1. 4833429E-03*P 2 - 5. 3033020E-08*P 3 

-22 . 2332967E-03*T*P + 1. 1615558E-05*T 2 *P - 1. 3824483E-05*T*P 2 
- 2.665282E-08*T 3 *P + 4 . 2607112E-08*T 2 *P 2 
+ 2 . 25 89584E-11*T 4 *P - 4.3236307E-11*T 3 *P 2 Eq. (3) 

Where : 

P = Pressure in atmospheres 

T = Temperature in degrees Kelvin 

SPECIFIC HEAT RATIO OF GASEOUS HYDROGEN : GAMMAH 

GAMMAH = 1.4 + 1.7916552 - 9 . 3494600E+01* 1/T + 3. 4401]52E+03*(1/T) 2 
! - 1 . 5811495E-02*T + 7. 3710370E-05*T 2 - 1. 9032770E-07*T 3 

+ 2. 5607340E-10*T 4 - 1. 3934965E-13*T 5 
i 9.5212948E-03*P - 9 . 4796595E-06*P 2 + 4.-7574151E-08SP 3 
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— 9.8875463E-05*T*P + 3. 9974179E-07*T 2 *P - 3. 3917970E-08*T*P 2 
- 7.3903897E-10*T 3 *P + 3.0774794E-10*T 2 *P 2 
+ 5.2240539E-13*T 4 *P - 4. 6828143E-13*T 3 *P 2 Eq. (4) 


Where: 

P = Pressure in atmospheres 

T = Temperature in degrees Kelvin 

The engine test data is used to compute parameters for use in evaluating 
the test engine performance. These parameters include the flow rate for both 
the fuel and oxidizer, the total flow rate, specific impulse, engine mixture 
ratio, thrust coefficients, characteristic exhaust velocity, efficiency and 
total impulse. In addition, the nozzle stagnation pressure and total oxidizer 
and fuel consumption is integrated over the length of the firing pulse. 

The equations for computing these parameters follow. 

To compute mass flow rates from AP measurements 


A. Oxygen 


WD0T0 

= (Y0) (K0) (0 . 16028) (D00) 2 

/(PT00) (PD00) (MW0) 

V Z 0X™ F 

Eq. (5) 

where : 
Y0 = 

1.0 - [0.41 + 0 . 35 (BETA0) 4 ] 

X0 

Eq. (6) 

(GAMM0) 

X0 = 

PD 00,, 
PT00 ' 


Eq. (7) 

BETA0 

D00 

DP0 


00 

'w' 

Z0X = 

Eq. (1) 



GAMM0 

= Eq. (3) 



K0 = 

Orifice Coefficient (CIV) 



PT00 

= (psia) measured value 



PD00 

= (psid) measured value 




D00 = (in) orifice diameter (CIV) 

DP0 = (in) PIPE diameter (CIV) 
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T00F = (°R) measured value +459.7 

MW0 = 32.00 Molecular Weight of Oxygen 

Unit conversion factor for flow rate = 0.16028 
WD0T0 = Oxidizer flowrate - lb /sec 

B. Hydrogen 

WD0TF - (YF) (KF) (0. 16028) (DH0) P y j <S 3 » 


where : 


XF = 


PDF0 

PTF0 


4 XF 

YF = 1.0 - [0.41 + 0.35(BETAF) ] 


(GAMMAH) 


BETAF 


DH0 

DPH 


Z H = Eq. (2) 

GAMMAH = Eq. (4) 

KF = Orifice Coefficient (CIV) 

Unit conversion factor for flow rate = 0.16028 
DH0--= Diameter of Hydrogen Fuel Orifice (IN) (CIV) 
DPH = Diameter of Hydrogen Pipe (IN) (CIV) 

PTF0 = (PSIA) Measured Value 

PDF0 = (PSIA) Measured Value 

TF0I = (°R) Measured Value +459.7 

MWH = 2.016 Molecular Weight of Hydrogen 


Eq. (9) 


Eq. 10 


Eq. (11) 


Eq. (12) 


Compute Total Fowrate (WD0TT) 

WD0TT = WD0T0 + WD0TF Eq. (13) 

Compute Specific Impulse (ISP) 

ISP " isiff **• <14) 
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Compute Mixture Ratio (MR) 


MR 


WD0T0 

WD0TF 


Compute Thrust Coefficient (CSUBF) 


Eq. (15) 


CSUBF (AT)(PNS) Eq * (16) 

Where: 

F = Measured Value 

PC = Measured Value 

AT = Area of throat (IN 2 ) (CIV) 

PNS = PC(K) ■ Eq. (17) 

K = Function of the Contraction Ratio 


Compute Characteristic Exhaust Velocity CSTAR 


CSTAR 


(32.174) (PC) (AT) 
WD0TT 


Eq. (18) 


CSTAR = CSTAR + ACSTAR where: ACSTAR is currently assumed = 0 


Compute Theoretical CSTAR from MSC/EP4 Supplied Equation 
See Figure 1-18 

CSTAT = 6428.561 + 2233.567(MR) - 885 .0861(MR) 2 + 143.8467(MR) 3 

- 11. 13366 (MR) 4 + .3348754 (MR) 5 Eq. (19) 

Derived from a frozen composition at a pressure of 30 psia and 
an ambient temperature of 298.15°K. 

Compute CSTAR Efficiency 


ETAC = 


CSTAR 

CSTAT 


Eq. (20) 


Compute Theoretical Vacuum Thrust Coefficient from MSC/EP'4 Supplied 
Equation 

See Figure 1-19 

CFSV = 1.477818+ . 0039 07214 (MR) - .0005934259 (MR) 2 

+ .00002873259 (MR) 3 Eq. (21) 

Derived from a frozen composition. at a pressure of ,30 psia and 
an ambient temperature _b£_ 29 8.. 15 “ELand. an- expansion .ratio of 5. 
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Compute CF Efficiency 


ECFS 


CSUBF 

CFSV 


Eq. (22) 


Total Impulse (IT) 
c/o 



st 

where : 


Eq. (23) 


st = Engine start command 

c/o = Engine cutoff command plus time constant 
Where time constant = 50 data points 
AT = Computed time interval 

The program uses the trapezoidal rule for integration. 


Pressure 


INPNS = 


integral (INPNS) 



PNS AT 


st 

Same integration technique as used to solve Eq, 


(23). 


Eq. (24) 


Total Oxidizer Consumed (M0) 
r c/o 

M 0=1 (WD0T0) AT Eq. (25) 

st 

Same integration technique as Eq. (23) 

Total Fuel Consumed (MF) 
c/o 

MF = J (WD0TF) AT Eq . (26) 

st 

Same integration technique as used’ to solve Eq. (23) 


Plots of theoretical values for the characteristic exhaust velocity (CSTAR) 

and the coefficient of force C^, are presented in Figures 1-18 and 1-19 , 
respectively. The values presented in these Figures are valid for both 

the measured mixture ratio data and the calculated rated mixture ratios. 
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1.2. 2. 2 RATED (Engine Performance) 


The purpose of this subroutine is to reduce the performance parameters to 
a set of standardized conditions to allow an accurate comparison of test engine 
performance on a run-to-run basis. Since standard engine performance is only 
applicable to steady state portions of this run, this subroutine is not entered 
until the engine start command has been exceeded by 200 milliseconds. Although 
this time delay is sufficient for the present test program, it may have to be 
lengthened for future tests. The performance standardization calculations are 
completed when the engine shutdown signal is received. The results of this 
subroutine are output in Block IV of the printout in a format which permits 
easy comparision with measured performance. 

Basically, the computations in this subroutine reduce the measured test 
data to values which correspond to a set of standard conditions(pressure , 
temperature, etc.) at the engine interface for a given chamber pressure. 
Although, the standard values may be user specific a typical set of appropriate 
values for the standard conditions are built into the program. A list of the 
standardization parameters follow. 


RATED 

Subroutine Equations 



TFD 

= 

TF0I 

Eq. 

(1) 

T0D 

= 

T00I 

Eq. 

(2) 

PED 

= 

PTF0 - (PDE0) 

Eq. 

(3) 

P0D 

= 

PT00 - PD00 

Eq. 

(4) 

PC 

= 

PC 

Eq. 

(5) 

TEDS 

= 

CIV or PV \ 

Eq. 

(6) 

T0DS 

= 

CIV or PV 1 

Eq. 

(7) 

PFDS 

= 

CIV or PV ( 

Eq. 

(8) 

P0DS 

= 

CIV or PV ( 

Eq. 

(9) 



V CIV - card input value 



PCS 

= 

CIV or 30 psia !• 

Eq. 

(10) 



/ PV - program value 



PAB 

= 

CIV or PV ' 

Eq. 

(11) 
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The following equations are used to reduce both the measured data and 
the engine evaluation parameters (computed in the SWAGER subroutine) to 
correspond to the standardized engine values. 

To compute interface densities: 

Site-fuel 


RED 


(PFD) (MHH) 

(10.73)(ZHXTDF + 459.7) 


Eq. (12) 


Site-oxidizer 


R0D 


(P0D) (MWg) 

(10 . 73) (Z0X) (T0D + 459.7) 


Standard- fuel 


Eq. (13) 


RFDS 


(PFDS) (MWH) 

(10.73) (ZH) (TEDS + 459.7) 


Standard-oxidizer 


Eq* (14) 


R0DS 


(P0DS) (MW0) 

(10. 73) (Z0X) (T0DS + 459.7) 


Eq* (15) 


DPF = PFD - PC • -Sq. (16). 

PD0 = P0D - PC Eq. (17) 

Start of loop 
Assume 

PCCI = PCS Eq. (18) 

DPFS = PFDS - PCCI Eq, (19) 


WD0TFS 



x WD0TF 


Eq. (20) 


New adjusted oxidizer flowrate to standard conditions 

DP0S = P0DS - PCCI Eq. (21) 
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WD0T0S 



x WD0T0 


Eq. (22) 


Adjusted standard mixture ratio 


MRS 


WD0T0S 

WD0TFS 


Adjusted standard total propellant flow 


WD0TTS = WD0T0S + WD0TFS 


Eq. (23) 
Eq. (24) 


Standard nozzle stagnation pressure 

PNSS = (PCCI) x (K) Eq. (25) 

where: K = table lookup value in SWAGER 


Theoretical : frozen .C-star. obtained from NASA at .PCS of 30 psia.and ambient 
temperature _== .298. 15 °-K (67°F) 

CSTATS = 6428.561 + 2233 . 567 (MRS) - 885. 0861 (MRS) 1 2 + 143. 8467 (MRS) 3 

- 11. 13366 (MRS) 4 +.3348754 (MRS) 5 Eq. (26) 


ATTC = AT + f (T) where f (T) presently = .0- and is the increase 


in the 

nozzle throat area due. to thermal expansion. 

Eq. (27) 

EPS = 

AE 

Eq. (28) 

ATTC 

CSTASD 

= (CSTATS) (ETAC) 

Eq. (29) 

PC CIA « 

(CSTASD) (WD0TTS) . 
(G) (ATTC) 

Eq. (30) 

Convergence Criteria 


PCE = 

PCCI - PCCI A 

Eq. (31) 


1 = 1+1 Eq. (32) 

if I PCE |<.l go to CF theoretical (Equation 36) Eq. (33) 
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if I > 10 print all numbers and flag PCCI did not converge; go to (42) 

PCCI = PCCI A Eq. (34) 

Go to Equation 19^ for loop Eq. (35) 

Theoretical vacuum thrust coefficient at PNSS, MRS, and e = 5 

CFNSV = 1.477818 + . 003907214 (MRS) - . 0005934259 (MRS) 2 + . 00002873259 (MRS) 3 
where: MRS is last converged value of standard mixture ratio 

Note: In general, CF is a function of MR, PNS, and e; but the effect 

of PC on vacuum CF functions is small and is assumed to be negligible 

This equation was derived for a frozen composition,, a .pressure 
of 30 psia and an ambient temperature .of 2S8.15°K. 


Standard thrust coefficient efficiency 


Assume nCF sm = 


ECFSTD = ECFS 


Standard thrust coefficient at vacuum 


CFSTD V = 
CFSTD = 
F 

STD 


ECFSTD x CFNSV 
CFSTDV - - PA "cs ' EPS 
(PCS) (ATTC) (CFSTD) 


Eq. (37) 

Eq. (38) 
Eq. (39) 
Eq. (40) 


ISPS = FSTD/WD0TTS Eq. (41) 

This statement ends the standardization for a particular data slice. All 
parameters are printed into Block IV format or a diagnostic of no conver- 
gence is flagged. The program than moves to the next data slice. 
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2. PROGRAM USER'S GUIDE 

2.1 INTRODUCTION 

The Program User's Guide has been written to give the user detailed 
instructions on the operation of the HEPCAT (HD011C) program. With the 
exception of Section 2.2.2, this portion of the document is completely 
self-contained. 

2.2 PROGRAM DESCRIPTION 

2.2.1 Program Definition 

This program was designed for the acquisition, reduction and 
engineering analysis of data recorded on magnetic tape by an SEL 600 
computer. The SEL 600 is a 12 bit, 50 channel analog/digital converter. 

The data was produced by the Thermochemical Test Facility at MSC in 
the testing of experimental gas-gas reaction control system (RCS) J)ets. 

It is a stand-alone program which generates data for plotting by use of a 
separate program. 

2.2.2 Method of Solution 

The method of data reduction and the mathematics of the program 
are described in Section 1. 

2.3 USER'S INFORMATION 

2.3.1 Input Description 

The program has two types of inputs, cards and magnetic tape. 

Both are required inputs and are described in the next two subsections 
together with the pertinent restrictions on program usage. 

2. 3. 1.1 Card Input 

Card input for the program is divided into the following four 
categories: 

A. Measurement parameters 

B. Tables of calibration curves 

C. Program constants 

D. Flag control card 

Nomenclature for the input and output variables is presented in Appendix 1. 
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A. Measurement Parameters 


The definition of the measurement parameters requiring a user 
load sheet assignment in terms of the SEL 600 channel assignments, scale 
factors, biases, and engineering units is presented as an example in 
Appendix 3. The load sheet format which consists of one card for each 
parameter (channel assignment) is defined for each 80-column card as fol- 
lows: 


Column No. 


Description 


I and 2 

3 

4 to 9 
10 

II 
12 

13 

14 

15 


16 

17 to 25 
26 

27 to 35 

36 

37 to 39 


40 

41 to 43 


Channel number on SEL tape, right justified (1 to 50) 

Blank 

Alphanumeric name of channel, left justified 

Blank 

Bias flag; 1 for bias, a "blank" for no bias 

Blank 

Scale factor flag; 1 for scale factor, a "blank" for 
no scale factor 

Blank 

Calibration curve flag; 1 for calibration curve, a 
"blank" for no calibration curve 

Blank 

Channel bias value, if any 

B1 ank 

Scale factor value. 

Blank 

Table number for calibration curve required to con- 
vert counts to millivolts. The number is between 
101 to 150; i.e., a count to millivolt table is 
required for each parameter whi.ch. utilizers a -table. 

Blank 

Table number for calibration curve required to con- 
vert millivolts to engineering units. The number 
is between 201 and 250; i.e., a millivolt to engi- 
neering unit calibration curve is required for each 
parameter rwhleh rutirlirzets^fcaietable. 
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Description 


Column No . 

44 Blank 

45 to 48 Units to which the measurement is to be converted 

49 to 80 Not used 

B. Tables of Calibration Curves 
The second category of required user inputs are the tables of 
calibration curves for the test instrumentation, shown by example in 
Section 2.3.3. There are two sets of input tables: the first, defined 

as the 100 series is designed to convert the value of the parameter on 
the SEL 600 tape from counts into millivolts. The normal number of 
points is expected to be two (linear fit), but a maximum of 10 points 
is permissable to provide for higher order curve fits if desired. 


The format of the cards making up the 100 series per individual 
column assignment is as follows: 


Card No. Column No. 


1 


2 


1 

2 and 3 


4 


\ 5 

and 

6 

/ 1 

to 

10 

r 

to 

20 

CM 

to 

30 

< — ■ 
CO 

to 

40 

) 41 

to 

50 

/ 51 

to 

60 

1 61 

to 

70 

r— 

to 

80 


Description and Value 

A "1" defining it as the 100 series 

The channel assignment number to correspond with 
the tabla, same .table may ,be..used„more . than once. 

Blank 

The number of sets of points in the table 

The starting floating point value of counts; XI 
The corresponding floating point value of the 
counts XI in millivolts; Y1 
The 2nd floating point value of counts; X2 
The corresponding floating point value of the 
counts X2 in millivolts; Y2 
The 3rd floating point value of counts; X3 
The corresponding floating point value of the 
counts X3 in millivolts; Y3 
The 4th floating point value of counts; X4 
The corresponding floating point value of the 
counts X4 in millivolts; Y4 



Card No. Column No. 


Description and Value 


I I to 10 
11 to 20 

etc. 


The 5th floating point value of counts; X5 
The corresponding floating point value of the 
counts X5 in millivolts; Y5 


The entry process of cards is repeated sequentially until the user designated 
number of points is reached. The second table, defined as the 200 series, 
is designed to convert values of the parameter in millivolts into engineering 
units. The maximum number of sets of points allowed is 20. The format of 
the cards making up the 200 series is the- same as the 100 series, the only 
exception is the number "2" inserted in Column 1 of card number 1. 


C. Program Constants 

In the present program, the user is required to input nine constants. 
In addition, there are six constants which the user may or may not change at 
his discretion. If the user does not input a value, then the value stored in 
the program will be used. These constants are identified in the following 
description: 


Engr. 


Card No. 

Column No. 

Description and Value 

Units 

i 

f 1 to 15 

2 

Value of nozzle throat area (IN ) 

AT 


i 16 to 30 

Value of the oxidizer orifice coefficient 

m 

i l 

[ 31 to 45 

Value of oxidizer orifice diameter (IN) 

D00 


) 46 to 60 

Value of oxidizer pipe diameter (IN) 

DP 0 


y 61 to 75 

Value of fuel orifice coefficient 

KF 


( 1 to 15 

Value of fuel orifice diameter (IN) 

DH0 


i 16 to 30 

Value of fuel pipe diameter (IN) 

DPH 

z 

I 31 to 45 

Combustion chamber area (IN ) 

AC 

\ 

46 to 60 

Area of nozzle exit (IN ) 

AE 


61 to 75 

.Pressure ambient (PSIA). If not input, a 

value of pAB 


k - 

O.’O PSIA is used. 
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Card No. Column No. 


3 

3 


1 to 15 
1 63 tol 30 
33 to $6 
46 to 60 
61 to 75 


Engr. 

Description and Value Units 

Standard temperature of fuel at interface (°F). TFDS 
If not input, a value of 67°F is used. 

Standard temperature of oxidizer at interface (°F). T0DS 
If not input, a value of 67°F is used. 

Standard pressure of fuel at interface (PSIA). If • PFDS 
not input, a value of 40 PSIA is used. 

Standard pressure of oxidizer at interface (PSIA). P0DS 
If not input, a value of 40 PSIA is used. 

Standard chamber pressure (PSIA). If not input, a pc 
value of 30 PSIA is used. 


D. Flag Control Card 

A single program control card input enables the user to select the 

various outputs by flag options. These options are illustrated in Section 
2.3.4 and described below: 


Column No. 


Description and Value 


1 

2 

3 and 4 


5 

6 


7 

8 


A "1" implies a data dump is required. A "blank" or 0 
implies no dump is required. 

B1 ank 

The number of the pulse to be dumped. The number 
should be right adjusted, e.g., pulse No. 9 is 
written as 0 or blank in Column 3 and 9 in Column 
4. Only one pulse in a run can be dumped. 

Blank 

Print option flag location: 

0 = no print 

1 = every 5th point printed 

2 = every 10th point printed 

The value 2 is recommended in general as it will 
produce the least amount of output per pulse 
(about 40 pages) and will also be at a sufficient 
sample rate (5 times per second) for most purposes 

Blank 

A "1" indicates that 4020 plots are desired. A "blank" 
implies no plots are desired. 
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Column No. 


Description ^nd Value 


9 

10 and 11 


12 

13 


14 

15 


16 to 80 


Blank 

The total number of pulses to be processed. The 
number is right adjusted, e.g., 08 implies eight 
pulses to be processed. 

Blank 

Microfilm output flag location 
1 - microfilm 

0 = no microfilm 

Blank 

Engine performance standardization option flag. 

1 = perform engine standardization 
0 = no engine standardization 

Blank 


2. 3. 1.2 Tape Input 

The program requires one data tape to operate. The tape is generated 
by a SEL 600 computer which utilizes a 12-bit word. The SEL is a 50 
channel analog/digital converter. Each record contains 801 words 
of data. Each word contains 36 bits and therefore represents three 
channels of information from the SEL 600. The SEL 600 multiplexes the 
data in a unique non-sequential cyclic manner. Figure 1-2 presents the 
multiplex sequence used. Each record contains 120 milliseconds of data. 
The SEL 600 does not write time on the data tape, thus the first record 
is assumed to be time zero and all subsequent timing is referenced to this 
point. Each record is demultiplexed into 2403. words. The first word of 
each data record is an identification word and is ignored. 


2.3. 1.3 Input Restrictions 

The following is a set of restrictions applicable to the operation of the 
program: 

A. In regard to Section 2. 3. 1.1, Part A, a program stop is generated by 
the following misassignments: 

i) A "1" in Columns 13 and 15 

ii) A "1" in Column 15 and zeros in Columns 37 to 39 and/or 

Columns 41 to 43, inclusively 
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iii) A "0" in Columns 13 and 15 when an alphanumeric name appears 

in Columns 4 to 9 

iv) If the user does not assign an alphanumeric name between 

Columns 4 and 9 inclusively, the measured digitized values 
contained on the data channel is zeroed out. The user must 
assign an alphanumeric name for those channels required for 
the engineering evaluation in the engineering subroutine. 
Otherwise a program stop will occur. Required alpha- 
numeric names are: F, PC, PTF0, PT00, PDF0, PD00,'TF0I, 

T00I. Their meaning is explained in Appendix 1. 

B. The input constants described in Section 2. 3. 1.1, Part C, must be 
input as floating point numbers. Also, if the user chooses to use the program 
values for the six discretionary constants (Card #3) a blank card must 

be present in their place. 

C. At the end of the data deck, a card containing 'CASEND' in Columns 
1 to 6 must be present. 

2.3.2 Output Description 

The program has three possible means of output, any one of which may be 
used either separately or concurrently. 

2. 3. 2.1 Printed Output 

With the print flag set, the program will produce paper output. Each 
phase of the program has its own particular output. as defined below. 

A. All inputs are printed out. This includes all card images, scales 
for each channel, biases for each channel, calibration curves for each channel 
and all program constants. These are all grouped under the heading of BLOCK I 
printout. 

B. BLOCK II printout is the final result of the filtering of the data 
from the SEL 600 magnetic tape. Each channel is identified by its input 
alphanumeric name followed by its filtered value. 

C. A BLOCK III printout is the result of the calculations made by the 
engineering subroutine. 
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D. The engine performance standardization routine produces the results 
output in a BLOCK IV printout. The standardized value is printed next to the 
original test value. 


E. The final type of printed output is a BLOCK V printout. This is 
produced only when the data tape is dumped. 

2. 3.2.2 Microfilm Tape Output 

Each type of output that is produced in the printed output is available 
with the microfilm option. The difference between the two options is the 
type of final output and the fact that every computed point is - output on 
microfilm, not just every fifth or tenth point. 

2. 3.2.3 History Tape Output 

The history tape is generated whenever 4020 plots are desired. It is 
then used as an input tape to the plot program TRWPLT (see Appendix 2 for 
documentation on the use of TRWPLT). The format of the tape is explained in 
Appendix 2. 


2.3.3 Sample Case 

A sample run is presented in Appendix 3 including the load sheets, listing 
of input, and the output generated by the program. In the case presented, all 
output option flags were set. More extensive data setups can be found in 
Appendix 2. 


2.3.4 Diagnosti cs 


The program has built in checks to insure correct operation. The follow- 
ing error messages can be generated by program. Also indicated is the corrective 
action to be taken by the user. 


A. Error Message - 

Corrective Action - 

B. Error Message - 

Corrective Action - 


CHANNEL N0. ’XX 1 HAS SCALING AND CURVE FLAG 
SET 

Remove scaling flag or curve flag from card. 

TABLE NO. ’XXX' N0T FOUND. CHANNEL N0. 
REQUESTING CAL TABLE WAS 'XX* 

Check to insure table ID number is in correct 
card columns. Put table in data deck if 
not present. 
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C. Error Message - 
Corrective Action - 

D. Error Message - 
Correction Action - 


E. Error Message - 

Corrective Action - 

F. Diagnostic Message - 

Corrective Action - 

G. Diagnostic Message - 

Corrective Action - 

H. Diagnostic Message - 
Corrective Action - 


CHANNEL N0. 'XX' HAS N0 SCALING 0R CURVE 
FLAG SEP.. ."! 

Insert a scaling flag or curve flag on 
channel parameter card. 

DATA CHANNEL CARD WAS N0T INPUT F0R VARIABLE 
' XXXXXX* AND IS REQUIRED IF THE ENGINEER- 
ING SUBROUTINE IS TO PRODUCE VALID RESULTS. 

If all eight required parameters were defined, 
check keypunching for errors and insure 
the alphanumeric name is left justified. 

If not present, the offending parameters 
must be defined. 

ERR0RS IN CARD INPUT HAVE CAUSED CANCELLATI0N 
0F RUN. 

Correct all errors in data deck. 

BAD REC0RD ENCOUNTERED IN FILE ’XX' - 
RECORD NUMBER 'XXX 1 - REC0RD LENGTH 
IS 'XXX' ... SKIP AND READ NEXT REC0RD. 

None to be taken by user. Program has 
encountered bad data on the input data 
tape . 

DEVICE ERR0R AND/0R TRANSMISSION ABORT WHILE 
READING FILE 'XX' - RECORD NUMBER 'XXX' ... 
SKIP AND READ NEXT RECORD. 

None by user. Data tape is bad at that 
particular point. 

PCCI DID N0T CONVERGE AFTER 'XXX' ITERATIONS. 

User should insure all input constants are 
correct. Otherwise, the message indicates 
the data may be bad. This is followed by 
a printout of all the engine performance 
standardization parameters. 
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I. Diagnostic Message - 


Corrective Action - 


J. Diagnostic Message - 


Corrective Action - 


K. Error Message - 


Corrective Action - 


2.4 OPERATING PROCEDURES 


0NE 0R M0RE 0F THE F0LL0WING PARAMETERS HAS 
G0NE NEGATIVE INDICATING A CHAMBER PRESSURE 
GREATER THAN LINE PRESSURE. STANDARDIZA- 
TI0N WILL BE DISC0NTINUED F0R THIS TIME 
SLICE. DPFS = 'XXX', RFDS = ’XXX', 

DPF = ‘XXX' , RFD = 'XXX 1 

Verify all input constants are correct, 

otherwise tape input data may be erroneous. 
The four parameters printed out are ex- 
plained in Appendix 1. 

THE STANDARDIZED MIXTURE RAT 10 HAS G0NE 
BEY0ND THE ALL0WABLE LIMITS WHICH ARE 1 .0 
T0 10.0. N0 STANDARDIZATION WILL BE 
ATTEMPTED F0R THIS PULSE. MRS = ’XXX 1 

Verify all input constants are correct, 

otherwise tape input data may be 'erroneous. 

THE RAT 10 0F C0MBUSTI0N CHAMBER AREA T0 
THR0AT AREA IS 'XXX.X'. THIS IS AN 0UT- 
0F- RANGE VALUE F0R THE INTERP0LATI0N 
TABLES USED T0 C0MPUTE THE C0NTRACTI0N 
RATI0 . THE LIMITS 0F THE INTERP0LATI0N 
TABLES ARE ‘XXX.X' T0 'XXX.X'. 

Check the two constant inputs for chamber 
areas and throat area. If these are 
correct, the interpolation tables will 
have to be changed. 


This section is a description of the deck setup and operating procedures. 
2.4.1 System Requirements 

The program is written in FORTRAN IV. At present, it is operative on 
the UNIVAC 1108 using the EXEC II system. HD011C utilizes one inputjdata tape and 
one scratch file. The input tape must be assigned to logical unit G, physical 
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unit 9. The internal scratch file is usually a drum file, although it is 
possible to assign it to a tape unit. In this situation, logical unit B, 
physical unit 2 would be used. If the user has not requested 4020 plots or 
microfilm output, the program requires no additional output files other than 
the system output tape. If 4020 plots are needed, an additional output file 
is necessary. This would be fore logical unit F, physical unit 8. If micro- 
film is requested, no additional output file is necessary. The file is gen- 
erated by the machine operator. Ibetion 2.4.3 gives an annotated description 
of the data deck. 

2.4.2 Program Operations 

Although the program, HD01 1C, is designed for execution of a single data case, it 
will process multiple engine firings on one data tape. If 4020 plots are 
desired immediately, the program tape (PCF) contains the plot program, TRWPLT, 
in the second file. Therefore, a double execution is possible. The program 
run time is approximately 30 seconds for each pulse processed from the data 
tape. If plots are made, an additional factor of 5 minutes for each pulse 
should be added. Print requirements can be estimated by the following: 100 

pages per pulse if every fifth point is being printed, 50 pages per pulse if 
every tenth point is being output. If a pulse is being dumped, approximately 
1800 pages of output is produced. Approximately 100 pages of output is gen- 
erated by the plot program, TRWPLT. It is recommended that the plot portion 
of the program not be run until the output of HD011C has been inspected for 
valid answers. 

2.4.3 Illustrations and Explanations of the Deck Setup 

_ \ 

Table 2.-1 is an annotated listing of the' data deck" used in the sample case. 
Input information required to operate the TRW plot routine can be found in Appendix 
A2. 
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Data Card 


Explanation 


Card Column 

1 2 3 4 5 6 7 8 

12345678901234567890123456789012345678901234567890123456789012345678901234567890 


VZ RUN 59368, TRW, XXXX 

,1079L,A025,P 

o* 

CO 

PRINGLE, R.W. 

-RUN IDENTIFICATI0N CARD 

7 PLT 





-C0NTR0L CARD NECESSARY F0R MICR0FILM AND 4020 0UTPUT 

V ASG F 





-PHYSICAL UNIT 8, 0UTPUT FILE F0R PL0T DATA 

V ASG G=71 1 07 




-PHYSICAL UNIT 9, INPUT DATA TAPE T0 HD011C 

V ASG Y=72287 




-PHYSICAL UNIT 28, PR0GRAM PCF TAPE 

7 XQT CUR 





-BRING IN TAPE HANDLER R0UTINES 

TRW Y 





-REWIND PCF TAPE T0 L0AD P0INT 

IN Y 





-READ PCF TAPE 0NT0 DRUM FILE 

7 XQT HD011C 




-EXECUTE PR0GRAM 

01 F 

1 

0.01 

LBF 


-THRUST, REQUIRED PARAMETER, SCALED, FACT0R, UNITS 

02 PC 

1 

0.1 

PSIA 


-CHAMBER PRESSURE, REQUIRED PARAMETER 

03 FV 

1 

1.0 

CNTS 


-FIRE V0LTAGE, REQUIRED PARAMETER, 

04 PFI 

1 

0.1 

PSIA 


-FUEL INJECTI0N PRESSURE, SCALED, SCALE FACT0R, UNITS 

05 P0I 

1 

0.1 

PSIA 


-0XIDIZER INJECTI0N PRESSURE, SCALED, SCALE FACTOR, UNITS 

06 PFII 

1 

0.1 

PSIA 


-FUEL IGNIT0R INJECTI0N PRESSURE, SCALED, FACT0R, UNITS 

07 P0II 

1 

0.1 

PSIA 


-0XIDIZER IGNIT0R INJECTI0N PRESSURE, SCALED, FACT0R, UNITS 

08 PTF0 

1 

0.1 

PSIA 


-FUEL 0RIFICE T0TAL PRESSURE, REQUIRED PARAMETER 

09 PT m 

1 

0.1 

PSIA 


-0XIDIZER 0RIFICE T0TAL PRESSURE, REQUIRED PARAMETER 

10 PDF0 

1 

0.01 

PSID 


-FUEL 0RIFICE DELTA PRESSURE, REQUIRED PARAMETER 

11 PD00 

1 

0.01 

PSID 


-0XIDIZER 0RIFICE DELTA PRESSURE, REQUIRED PARAMETER 

12 PFIC1 

1 

0.1 

PSIA 


-INJECT0R FUEL CAVITY PRESSURE #1 , SCALED, FACT0R, UNITS 

13 P0IC 

1 

0.1 

PSIA 


-0XIDIZER INJECT0R CAVITY PRESSURE, SCALED, FACT0R, UNITS 

14 PFIC2 

1 

0.1 

PSIA 


-INJECT0R FUEL CAVITY PRESSURE #2, SCALED, FACT0R, UNITS 

15 SS 

1 

1.0 

CNTS 


-SPARK SIGNAL, SCALED, SCALE FACT0R, UNITS 

16 PFTI 

1 

0.1 

PSIA 


-FUEL TURBINE INLET PRESSURE, SCALED, SCALE FACT0R, UNITS 

17 P0TI 

1 

0.1 

PSIA 


-0XIDIZER TURBINE INLET PRESSURE, SCALED, FACT0R, UNITS 

18 TFI 

1 


118 218 DEGF 


-FUEL INJECTI0N TEMP., CAL TABLE, CAL TABLE ID'S, UNITS 

19 T0I 

1 


118 218 DEGF 


-0XIDIZER INJECTION TEMP., CAL TABLE, CAL TABLE ID'S, UNITS 

20 TCI 

1 


120 220 DEGF 


-THERM0C0UPLE #1, CAL TABLE FLAG, CAL TABLE ID'S, UNITS 

21 TC2 

1 


120 220 DEGF 


-THERM0C0UPLE #2, CAL TABLE FLAG, CAL TABLE ID'S, UNITS 

22 TC3 

1 


120 220 DEGF 


-THERM0C0UPLE #3, CAL TABLE FLAG, CAL TABLE ID'S, UNITS 

23 TC4 

1 


120 220 DEGF 


-THERM0C0UPLE #4, CAL TABLE FLAG, CAL TABLE ID'S, UNITS 

24 TC5 

1 


120 220 DEGF 


-THERM0C0UPLE §5, CAL TABLE FLAG, CAL TABLE ID'S, UNITS 

25 TC6 

1 


120 220 DEGF 


-THERM0C0UPLE #6, CAL TABLE FLAG, CAL TABLE ID'S, UNITS 

26 





-THIS CHANNEL N0T IN USE 

27 





-THIS CHANNEL N0T IN USE 

28 





-THIS CHANNEL N0T IN USE 

29 





-THIS CHANNEL N0T IN USE 

30 





-THIS CHANNEL N0T IN USE 

31 





-THIS CHANNEL N0T IN USE 

32 TF0I 

1 


118 218 DEGF 


-FUEL 0RIFICE INLET TEMPERATURE, REQUIRED PARAMETER 


TABLE 2.-1 Annotated Data Deck 



„ , ,, , ..... Data Card 

Card Column 

F 2 3 4 5 6 7 8 

1 2345678901 2345678901 2345678901 234567890123456789012345678901 2345678901 234567890 

33 T00I 1 118 218 DEGF 

34 TFTI 1 118 218 DEGF 

35 T0TI 1 118 218 DEGF 


Expl anation 


-OXIDIZE ORIFICE INLET TEMPERATURE, REQUIRED PARAMETERS 

-FUEL TURBINE INLET TEMP., CAL TABLE, CAL TABLE ID'S, UNITS 

-OXIDIZER TURBINE INLET TEMP., CAL TABLE, CAL TABLE ID'S, UNITS 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-FUEL FL0WRATE TURBINE, SCALE FLAG, FACT0R, UNITS 

-0XIDIZER FL0WRATE TURBINE, SCALE FLAG, FACT0R, UNITS 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 

-THIS CHANNEL N0T IN USE 


50 RUNN0 

1 

1.0 






-RUN ANN0TATI0N 



118 2 








-CAL TABLE ID CARD, TABLE N0. 

, N0. 0F P0INTS, 100 SERIES 

0. 

0. 

5000. 

5000. 





-P0INTS XI , Y1 X2, Y2 



218 20 








-CAL TABLE ID CARD, TABLE N0. 

, N0. 0F P0INTS, 200 SERIES 

0. 

-302. 

662. 

0. 

725. 

30. 

735. 

35. 

-P0INTS XI, Y1 X2 , Y2 

X3, Y3 

X4 , Y4 

746. 

40. 

757. 

45. 

768. 

50. 

779. 

55. 

X5, Y5 X6 , Y6 

X7, Y7 

X8 , Y8 

790. 

60. 

801. 

65. 

812. 

70. 

823. 

75. 

X9, Y9 X10, Y10 

Xll, Yll 

XI 2, Y12 

835. 

80. 

846. 

.85. 

858. 

90. 

869. 

95. 

XI 3 , Y13 XI 4, Y14 

XI 5 , Y15 

XI 6 , Y16 

881. 

100. 

892. 

105. 

904. 

110. 

4095. 

1137. 

XI 7 , Y17 XI 8, Y18 

XI 9, Y19 

X20, Y20 

120 2 








-CAL TABLE ID CARD, TABLE N0. 

, N0. 0F P0INTS, 100 SERIES 

0. 

2302. 


5000. 

5000. 




-P0INTS XI, Y1 X2 , Y2 



220 20 








-CAL TABLE ID CARD, TABLE N0. 

, N0. 0F P0INTS , 200 SERIES 

0. 

-302. 

768. 

50. 

881 . 

100. 

1000. 

150. 

-POINTS XI , Y1 X2, Y2 

X3 , Y3 

X4, Y4 

1126. 

200. 

1257. 

250. 

1394. 

300. 

1464. 

325. 

X5, Y5 X6 , Y6 

X7, Y7 

X8, Y8 

1535. 

350. 

1608. 

375. 

1681. 

400. 

1756. 

425. 

X9, Y9 X10, Y10 

Xll, Yll 

XI 2 j Y12 

1832. 

450. 

1909. 

475. 

1986. 

500. 

2145. 

550. 

XI 3, Y13 X14, Y14 

X15, Y15 

XI 6 , Y16 

2306. 

600. 

2471 . 

650. 

2639. 

700. 

4095. 

1137. 

X17, Y17 XI 8, Y18 

XI 9 , Y19 

X20, Y20 


.4255 

.655 


.46 

1.0 


.624 

-PR0GRAM C0NSTANTS - AT, K0, 

D00, DP0, KF 



.42 

1.0 


7.9173 

2.1275 


0.0 

-PR0GRAM C0NSTANTS - DH0 , DPH 

, AC, AE, PAB 


67.0 

67.0 


40.0 

40.0 


30.0 

-PR0GRAM C0NSTANTS - TFDS, T0DS, PFDS, P0DS, PCS 

0 00 1 1 

1 1 1 







-PR0GRAM L0GIC FLAGS 



CASEND 








-DATA DECK TERMINATI0N CARD 




TABLE 2.-1 Annotated Data Deck (continued) 



Data Card 


Explanation 


Card Column 

T” 2 3 4 5 6 7 8 

123456789012345678901 23456789012345678901234567890123456789012345678901 234567890 

V XQT CUR 
ERS 

IN Y 
TRI Y 

V XQT TRWPLT 
ISCALX—l 
XL0=O. 

XH 1=1 0 . 

ISCALY=1 

YL0=O. 

YHI=100. 

XLABEL=ID= COMPUTER TIME SEC 
YLABEL=ID= THRUST LBS 
TITLE=ID= THRUST (LBS) 

PL0T=TC,1 ,F,1 ,ENDLST 

ENDPLT 

YL0=O. 

YHI=100. 

YLABEL=ID= CHAMBER PRESSURE PSIA* h . 

TITLE*ID= CHAMBER PRESSURE (PSIA) 

PL0T=TC, 1 ,PC,1 ,ENDLST 
ENDPLT 
YL0=O. 

YH 1=300. 

YLABEL=ID= ENGINE SPECIFIC IMPULSE SEC 
TITLE=ID=- ENGINE SPECIFIC IMPULSE (SEC) 

PL0T=TC,2,ISP,2 ,ENDLST 
ENDPLT 
XL0=O. 

XHI=20. 

YL0=O. 

YHI=10000. 

XLABEL=ID= T0TAL IMPULSE 

YLABEL=ID= CHARACTERISTIC EXHAUST VEL0CITY FT/SEC 
TITLE=ID= CHARACTERISTIC EXHAUST VEL0CITY .VS. T0TAL IMPULSE 
PL0T=IT,2,CSTAR»2 ,ENDLST 
ENDPLT 

XLABEL=ID= COMPUTER TIME SEC 

YLABEL=ID= STANDARDIZED ENGINE SPECIFIC IMPULSE SEC 
TITLE=ID= STANDARDIZED ENGINE SPECIFIC IMPULSE '(SEC) 

PL0T=TC ,2 , ISPS ,3 , ENDLST 


-BRING IN TAPE HANDLING ROUTINES 
-CLEAR USER PCF AREA 

-READ IN SECOND FILE 0N TAPE, PLOTTING PROGRAM 

-REWIND TAPE AND INTERLOCK 

-EXECUTE PLOTTING PROGRAM 

-USER WILL SCALE X-AXIS 

-LOWER LIMIT 0N X-AXIS 

-UPPER LIMIT 0N X-AXIS 

-USER WILL SCALE Y-AXIS 

-L0WER LIMIT 0N Y-AXIS 

-UPPER LIMIT 0N Y-AXIS 

-ANNOTATION FOR X-AXIS 

-ANNOTATION F0R Y-AXIS . 

-ANNOTATION FOR PL0T 

-PLOT THRUST AS A FUNCTION OF TIME 

rEND 0F PLOT 1 

-LOWER LIMIT ON Y-AXIS 

-UPPER LIMIT ON Y-AXIS 

-ANNOTATION F0R Y-AXIS 

-ANNOTATION FOR PL0T 

-PLOT CHAMBER PRESSURE AS A FUNCTION 0F TIME 

-END 0F PLOT 2 

-LOWER LIMIT 0N Y-AXIS 

-UPPER LIMIT 0N Y-AXIS 

-ANNOTATION F0R Y-AXIS 

-ANNOTATION FOR PL0T 

-PLOT SPECIFIC IMPULSE AS A FUNCTION 0F TIME 

-END 0F PLOT 3 

-LOWER LIMIT 0N X-AXIS 

-UPPER LIMIT 0N X-AXIS 

-LOWER LIMIT 0N Y-AXIS 

-UPPER LIMIT 0N Y-AXIS 

-ANNOTATION F0R X-AXIS 

-ANNOTATION FOR Y-AXIS 

-ANNOTATION F0R PL0T 

-PLOT CSTAR AS A FUNCTION 0F TOTAL IMPULSE 

-END OF PLOT 4 

-ANNOTATION F0R X-AXIS 

-ANNOTATION F0R Y-AXIS 

-ANNOTATION F0R PLOT 

-PL0T STANDARDIZED ISP AS A FUNCTION 0F TIME 


TABLE 2.-1 Annotated Data Deck (continued) 



Data Card 


Card Column 

1 2 3 4 5 6 7 8 

1 2345678901 2345678901 2345678901 2345678901 2345678901 2345678901 2345678901 234567890 



ENDPLT -END 0F PL0T 5 

ENDFIL -END 0F PL0TS F0R THIS FILE 0F DATA 


ENDRUN -END 0F THIS RUN 

V E0F -END 0F FILE 


cn 

o 


TABLE 2.-1 Annotated Data Deck (continued) 



3. PROGRAMMER’S GUIDE 

3.1 PROGRAM DESCRIPTION 

Data Reduction Program - H CO 11 C 

This program has been designed to perform data acquisition, reduction, and 
analysis information- recorded on magnetic tape by a SEL 600 12-bit,' 50-channel 
analog/digital converter. The converter multiplexes the data in a unique non- 
sequential cyclic manner. One cycle or sample consists of sampling channels 
1-40, channels 1-30, and channels 41-50. The sampling rate for channels 1-30 
(500 S/S) is double that of channels 31-50 (250 S/S). Each 36-bit word in the 
data stream consists of three 12-bit packed words. 

The program reads the SEL 600 data tape with NTRAN in 801-word records. 

Each word is then unpacked into three words and placed in a storage array of 
dimension 2403. Data in this array is demultiplexed into 50 channels and placed 
in another array of dimension 60 X 50, each column representing one channel of 
data. In order to produce a uniform sample rate of 250 samples per second, 
those parameters which are recorded twice within one sample are simply arith- 
metically averaged. The parameters which are recorded once within one sample 
are transferred along with the averaged values to correspond with the time 
associated with the midpoint of the sample. The quantity of data is further 
reduced by combining 5 samples into one by simple averaging with the associated 
time of the center sample. One channel of the fifty contains a square pulse 
which recenters the averaging window and triggers analysis of the reduced data. 
Based on a threshold-crossing criterion, the beginning and end of the pulses 
are determined. This activates a recentering of the averaging window to coin- 
cide with the beginning of the start and shutdown transients. The subset of 
data defined by the pulse start and stop-time is then reordered (since there 
is no unique relationship between channel number and type of data) and is 
input to the engineering routines. Results are then output according to the 
user’s specifications (paper, historical tape, microfilm). 

The historical tape format is compatable with the input format required 
by the plotting program, TRWPLT. To create plots, TRWPLT is used in a double 
execution with HD011C. The user also has the option to simply obtain a dump 
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of raw data which has been demultiplexed and converted into engineering units. 

A complete listing of the program is presented in-Appendix IV. 

3.2 PROGRAM INTERFACES 

This section presents cross references of the following nature; 1) entry 
point cross reference, 2) common block cross reference, 3) intermediate storage 
on drum and fastrand files. Section 3.2.4 provides a complete description of 
each common block and the blank common storage. 


3.2.1 Entry Point Cross Reference 

Table 3-1 gives a cross reference of calling and called subroutines, so 
Also included in the cross reference are system library functions. 


AVRGR 

BLKDTA 

HD011C 

CHEWER 

CDNPUT 

X 

X 

CHEWER 

X 


CR2TAP 

X 


FILTR1 

X 


FILTR2 
H GAMMA 
HZH 

X 

X 

JHYDE 

0GAMMA 

X 


0UTPUT 

0XZ0X 

RATED 

SHIFT 

X 

X 

SWAGER 

ZER0 

X 

X 


NTRAN 

X 

FLD 

X 

AMIN1 . 


AMAX1 


ABS 


M0D 


0R 


SQRT 



CALLING ROUTINE 
FILTR1 FILTR2 JHYDE 
X 


X 

X 

SYSTEM FUNCTIONS 

X 

X 

X 


OUTPUT RATED SWAGER 


X 

X X 

X 

X X 

X 


X 


X X 

X 

X X 


Tafilgugell. Entry Point Cross Reference 
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3.2.2 Common Block Cross Reference 


Table’ 3-2 shows the usage of the common blocks and blank common by each 
subprogram in HDOllfi. 


GLOBAL STORAGE 


<c 

cc 

C3 

O 

DC 

O. 

GQ 


CO 


HD011C 

AVRGR 

BLKDTA 

CDNPUT 

CHEWER 

CR2TAP 

FILTR1 

FILTR2 

JHYDE 

0UTPUT 

RATED 

SHIFT 

SWAGER 

ZER0 


<_» 

£ 

l — 
1 — 


cc 

<3 

OO 

z 

DC 

cc 


i— 

UJ 

c 

§. 

§ 

css 

zc 

o 

c 

M 

OQ 

<_> 

o 

UJ 

Ll_ 

Ll_ 


CO 

C£5 

2 

O 


00 
— J 
LU 

00 

LU 

■=£ 

2 

H- 

CO 

s 

s: 

— 1 

ZD 

O 

<c 


J — r 

U. 

Lu 

HH 


cc 



i — 

CO CO 

— 1 J— 



H- => 


X X 
X 

X X X X X X 
X X X X X 
X XXX 


X . X 

X X 

X XX 

XX XXX 

XX X X 

X 

XX X X 

X 


X X 

X XXX X 
XX X 

X X X X 

X 
X 

X X 
X 

xxx x; 

X X 

X X X X X 


Table - 3r2 Global Storage Cross Reference 
3.2.3 Use of Intermediate Storage Devices 

As presently constructed the program uses one drum file on every run. 

Its physical unit designation is 2; its logical unit designation is B; it 
is referenced in the program- through the variable I0TAPE. All card images 
which pertain only to HD011C are stored in this file. In this manner, the 
program has ready access to the input data for each pulse. 

When plots are required and a double execution is performed, the logical 
unit F, physical unit-8 is utilized as a fastrand file. This allows HDQllg 
to store the plot data on this file where it will still be available for 
TRWPLT to use when it is executed. A drum file is not permissable, as data 


. 53 . 



stored on drum files is not available from one execution to the next. It 
would be possible to assign this file to a working tape if the user 
desires. However, using a fastrand file relieves the user of the necessity 
of keeping track of tapes. 

3.2.4 Description of Blank and Block Common 

This section describes each variable stored in blank or block common. 

3. 2. 4.1 Blank Common 


Storage: 7137 cells 


Variable 

Type 

Dimension 

Units Description 

ENGDAT 

Real 

9,100 

-- • Contains data calculated in 

the engineering routines. 

ENGRAT 

Real 

9,50 

Contains data calculated by 
the engine performance stan- 
dardization routines. 

FILT1 

Real 

40,51* 

Contains the SEL 600 data after 
the first filtering process, a 
simple arithmetical averaging. 

FILT2 

Real 

9,53** 

Results of the second compression 
or filtering are stored here. 
Also, computed time is stored in 
this array. 

ST(5RE 

. Real 

60,53*** 

When the SEL 600 data tape is 
de-multiplexed so that each 
channel is identifiable, it is 
stored in this array. 


* Each column in the array corresponds to one channel. The 51st column 
is not being used. 

** Each column in the array corresponds to one channel. Columns 51 and 
52 have time stored in them. Column 53 is not in use. 

*** Each column in the array corresponds to one channel. Each row corre- 
sponds to one sample (one cycle) otf forty channels. 

3. 2. 4. 2 Block Common C0MRAT 

Stnranp! 4? ppIIc 
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Variable 


Dimension 

Units 

Description 

AE 

Real 

1 

in? 

Area of nozzle exit 

ATTC 

R6al 

1 

in 2 

Area of nozzle throat thermally 
compensated 

CFNSV 

Real 

1 

_ — 

Standard theoretical vacuum 
thrust coefficient . 

CFSTD 

Real 

1 

— 

Standard thrust coefficient 

CFSTDV 

Real 

1 

— 

Standard thrust coefficient at 
vacuum 

CFSV 

Real 

1 

— 

Theoretical thrust coefficient 
at vacuum 

CSTASD 

Real 

1 

ft/sec 

Standard characteristic exhaust 
velocity (C*) 

CSTAT 

Real 

1 

ft/sec 

Site theoretical C* at 30 psia 
nozzle stagnation pressure 

CSTATS 

Real 

1 

ft/sec 

Standard theoretical C* at 30 
psia nozzle stagnation pressure. 

DPF 

Real 

1 

psia 

Pressure differential from inter- 
face to combustion chamber for fuel 

DPFS 

Real 

1 

psia 

Pressure differential standard 
interface to calculated chamber 
pressure for fuel 

DP0S 

Real 

1 

psia 

Pressure differential standard 
interface to calculated chamber 
pressure for oxidizer. 

ECFSTD 

Real 

1 

“ •“ 

Standard thrust efficiency coef- 
fi cient 

ECFS 

Real 

1 

— 

Site thrust efficiency coefficient 

EPS 

Real 

1 

*- _ 

Ratio of exit area to thermal 
corrected throat area of nozzle 

ETAC 

Real 

1 

— 

Site C* efficiency 

FSTDL 

Real 

1 

Ibf 

Standarddthrust 

I RATED 

Integer 

1 


Logic flag used to indicate use of 
engine performance standardization 
routine 

=0 - do not use routine 
=1 - use routine 

ISPS 

Real 

1 

sec 

Standard specific impulse 

MRS 

Real 

1 

-- 

Standard mixture ratio 

PAB 

Real 

1 

psia 

Pressure ambient 

PCCI 

Real 

1 

psia 

Calculated chamber pressure at 
injector face 

PCCIA 

Real 

1 

psia 

Adjusted calcualted chamber pressure 
at injector face 

PCE 

Real 

1 

psia 

Chamber pressure convergence criteria 

PCS 

Real 

1 

psia 

Standard chamber pressure 

PD0 

Real 

1 

psia 

Pressure differential from interface 
to combustion chamber for oxidizer 

PFD 

Real 

1 

psia 

Pressure of the fuel at interface 

PFDS 

Real 

1 

psia 

Standard pressure of the fuel at 
interface 
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Variable 

Jm. 

Dimension 

Uni ts 

PNSS 

Real 

1 

psia 

P0D 

Real 

1 

psia 

P0DS 

Real 

1 

psia 

RFD 

Real 

1 

lb/cu ft 

RFDS 

Real 

1 

Ib/cu ft 

R0D 

Real 

1 

lb/cu ft 

R0DS 

Real 

1 

lb/cu ft 

TFD 

Real 

1 

°F 

TFDS 

Real 

1 

°F 

T0D 

Real 

1 

°F 

T0DS 

Real 

1 

°F 

WD0TFS 

Real 

1 

Ib/sec 

WD0T0S 

Real 

1 

Ib/sec 

WD0TTS 

Real 

1 

Ib/sec 

3. 2. 4. 3 

Block Common C0MRT1 




Storage: 6 

cells 


Variable 

1m. 

Dimension 

Units 

PAB1 

Real 

1 

psia 

PCS! 

Real 

1 

psia 

PFDS1 

Real 

1 

psia 

P0DS1 

Real 

1 

psia 

TFDS1 

Real 

1 

°F 

T0DS1 

Real 

1 

°F 


3. 2. 4. 4 Block Common ENG 
Storage: 18 cells 


Description 

Standard nozzle stagnation pressure 
Pressure of the oxidizer at interface 
Standard- pressure of the oxidizer 
at interface- 

Density of the fuel at interface 
Standard density of the fuel at 
interface 

Density of the oxidizer at interface 
Standard density of the oxidizer at 
interface 

Temperature of fuel at interface 
Standard temperature of fuel at 
interface 

Temperature of oxidizer at interface 
Standard temperature of oxidizer at 
interface 

Adjusted fuel flowrate to standard 
values 

Adjusted oxidizer flowrate to standard 
values 

Total adjusted propellant flowrate 
to standard values 


Description 

Value of pressure, ambient used if 
not changed by input 
Value of standard chamber pressure 
used if not changed by input 
Value of standard pressure of fuel 
at interface used if not changed 
by input 

Value of standard pressure of oxi- 
dizer at interface used if not 
changed by input 

Value of standard temperature of 
the fuel at interface used if not 
changed by input 
Value of standard temperature of 
the oxidizer at interface used if 
not changed by input 
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Variable 

M 

Dimension 

Units 

Description 

AC 

Real 

1 

in? 

Chamber area 

AT 

Real 

1 

in 2 

Throat area 

CF1 

Real 

1 

— 

Constant used to compute fuel and 
oxidizer flowrates 

CF2 

Real 

1 


Constant used to compute oxidizer 
gas compressibility factor 

CF3 

Real 

1 

— 

Same as CF2 

CF4 

Real 

1 

— 

Same as CF2 

DCSTAR 

Real 

1 

-- 

Constant additive factor to C* 

DH0 

Real 

1 

in 

Fuel orifice diameter 

D00 

Real 

1 

in 

Oxidizer orifice diameter 

DPH 

Real 

1 

in 

Fuel upstream pipe diameter 

DP0 

Real 

1 

in ? 

Oxidizer upstream pipe diamfiter 
Earth's gravitational acceleration 
(local ) 

G 

Real 

1 

ft/sec 

GAMMA 

Real 

1 

™ “* 

Ratio of specific heats of oxidizer 
and fuel 

K 

Real 

1 

— 

Coefficient used in computing nozzle 
stagnation pressure 

KF 

Real 

1 


Coefficient of discharge of fuel 
orifice 

K0 

Real 

1 

— 

Coefficient of discharge 'of oxidizer 
orifice 

MWH . 

Real 

1 

Ib/mole 

Molecular weight of hydrogen 

MW0 

3. 2. 4. 5 

Real 

Block Common 1 
Storage: 3418 

1 

FACT0R 

cells 

Ib/mole 

Molecular weight of oxygen 

Vari able 

1m. 

Dimension 

Units 

Description 

BIAS 

Real 

51 

— 

Contains input biases for each channel 

IB 

Integer 

51 


Input logic flag for use of bias 
=0 - do not use bias 
=1 - use input bias 

IC 

Integer 

51 

— 

Input logic flag for use of cali- 


bration curves 

=0 - no cal curve:- 

=1 - use input cal curves 


IRUNN0 

Integer 

1 

-- 

• 

Contains run ID stored in it. 1 CD 
comes from data tape. 

IS 

Integer 

51 

— 

Input logic flag for use of scale 


factor 

=0 - no scale factor 

=1 - use input scale factor 


NP1 

Integer 

51 

— 

Array containing number of points 
in 100 series cal curves. 

NP2 

Integer 

51 

*• — 

Array containing number of points 
in 200 series cal curves. 

SCALE 

Real 

51 

— 

Contains scale factors for each 
chaanel 
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Variable 

Jm. 

Dimension 

Uni ts 

Description 

TAB XI 

Real 

51,10 

— 

Contains abscissa values for 100 
series cal curves 

TABX2 

Real 

51,20 

“** 

Contains abscissa values for 200 
series cal curves 

TABY1 

Real 

51,10 

“ — 

Contains ordinate values for 100 
series cal curves 

TABY2 

Real 

51,20 


Contains ordinate values for 200 
series cal curves 

3. 2. 4. 6 

Common Block FILES 




Storage: 11 cells 



Variable 

Jm. 

Dimension 

Units 

Description 

BEGFIL 

Integer 

1 

— 

Starting file on data tape 

IBL 

Integer 

1 

— 

Flag which indicates 'BL0CK I' 


output is to be produced- 

=0 - do not output 'BL0CK I' 


report 

=1 - report- 1 BL0CK I* output 


I DUMP 

Integer 

1 


Logic flag used to dump a pulse on 
data tape 

=0 - do not dump pulse 
=1 - dump data pulse 

ILINE 

Integer 

1 

— 

Line counter for printed output 

INT 

Integer 

1 


Logic flag data tape initialization 
has been done 

=0 - data tape not initialized 
=1 - data tape positioned 
properly 

IPC 

Integer 

1 

— 

Printer control flag 


=0 - do not produce printed 
output 

=1 - print every 5th computed 
point 

=2 - print every 10th computed 
point 


IPL0T 

Integer 

1 


Logic flag to control creation of a 
data plot tape 

=0 - do not create a plot tape 
=1 - create a plot data tape 

MXFILE 

Integer 

1 


Maximum number of consecutive end- 
of-file marks allowed on data tape 
before stopping run 

NDP 

Integer 

1 

“ “ 

Number of pulse on data tape to be 
dumped 

NLINES 

Integer 

1 

— 

Maximum number of lines on a page 

NP 

Integer 

1 

— 

Number of pulses to process 
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3. 2. 4. 7 Block Common FLAGS 


Storage: 5 cells 


Variable 

Jm. 

Dimension 

Units 

Description 

I SCAN 

Integer 

1 


Flag used to indicate the program 
has scanned the next record for 
detection of an engine off or engine 
on command 

=0 - next record not yet scanned 
=1 - next record has been scanned 

ISEND 

Integer 

1 


Flag to indicate to the main routine 
to use the previous record in engi- 
neering logic 

=0 - not ready to use previous 
record 

=1 - ready to use previous record 

IT0N 

Integer 

1 


Logic flag to keep the program from 
detecting an engine off command before 
am engine on command due to noise in 
the data 

=0 - no noise fin data 
=1 - noise in the data has 

caused engine off before an 
engine on to be detected 

LAST 

Integer 

1 


Last record on data tape has been 
read and needs to be processed 

=0 - last record has not been 
read 

=1 - last record has been read 

L00K 

Integer 

1 


Logic flag to indicate program is 
ready to read ahead one record to 
scan it for engine off or engine on 
command 

=0 - not ready to read ahead 
=1 - program ready to read ahead 


3. 2. 4. 8 Block Common FUNCTN 


Storage: 200 cells 


Variable 

1m. 

Dimension 

Units Description 

CX 

Real 

100 

Data points along abscissa for compu- 
tation of contraction ratio which 
is area of combustion chamber to 
area of throat. 

CY 

Real 

1000 

Data points along ordinate for compu- 
tation of contraction ratio which 
is area of combustion chamber to area 
of throat 


,59 



3. 2. 4. 9 Block Common ICT 


Storage: 2 cells 


Variable 

Jm. 

Dimension 

Units 

ICT1 

Integer 

1 

— 

N0C0NV 

Integer 

1 

— 


3.2.4.10 

Block Common 

LABELS 



Storage: 208 

cells 


Variable 

Type 

Dimension 

Units 

IP0INT 

Integer 

8 

— 

LABELS ‘ 

Integer 

50 

— 

LABENS 

Integer 

100 

— 

LABRAT 

Integer 

50 

— 

3.2.4.11 

Block Common R0WS 



Storage: 13 cells 


Variable 

1m. 

Dimension 

Units 

IBEGIN 

Integer 

1 

— 

IFV 

Integer 

1 

— 

INITL 

Integer 

1 



Descripti on 

Counter used to determine when output 
should be reported 
Logic flag which indicates that the 
engine performance standardization 
routine did not converge on an answer 
=0 - convergence was obtained 
=1 - convergence was not obtained 


Description 

Contains the location of the eight 
variables, located in the FILT2 array', 
which are mandatory for the engineer- 
ing routine 

Contains the alphanumeric name of each 
channel in BCD. Used for output and 
.as identifiers on the plot tape. 
Contains the alphanumeric name of each 
engineering output parameter in BCD. 
Used for output and as identifiers on 
the plot tape. 

Contains the alphanumeric name of each 
engine performance standardization 
parameter in BCD. Used for output 
and as identifiers on the plot tape. 


Description 

Flag usedfto give starting location 
in the FILT1 array to begin the 
second filtering 
Identifies the channel the fire 
voltage is in 

Logic flag to indicate an initiali- 
zation pass through a subroutine 

=0 - not an initialization pass 
=1 - initialize all variables 
in the subroutine 
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Logic flag that gives the status of 
the engine 

=-l - firing has terminated 
=0 - engine has not been fired 
-1 - engine is on 

Flag, which when set, will not allow 
any engineering calculations to take 
place until the 'next pulse. 

<99999 - use engineering routines 
>99999 - do not use engineering 

routines until next pulse 
Flag giving the row in the FILT2 array 
in which the engine on command was 
sensed in some data record 
Flag used to indicate the engine is 
definitely off and that the sensed-off 
command was not a data dropout 

=0 - status indeterminate from 
this flag alone 

=1 - engine has definitely gone off 
Flag used to indicate the engine is 
definitely on and that the sended-engine 
on command was not a data dropout 
=0’ - status indeterminate from 
this flag alone 
=1 - engine is definitely on 
Flag giving the row in the FILT2 array 
where the engine off command was sensed 
in some data record 
Row in FILT1 array where engine on 
command was first detected 
Row in FILT1 array where engine off 
command was first detected. 

Used to save the value of the subscript 
of the last row of the FILT1 array which 
was averaged in the FILTR2 subroutine 
Number of points in the integration 
scheme after the engine-off command 
is sensed 



Number of rows of the FILT1 array that 
have been averaged. Used to calculate 
the time of that average. 



3.2.4.13 

Block Common TIMLST 




Storage: 1 cell 



Variable 

M 

Dimension 

Units 

Description 

TIMLST 

Real 

1 

sec 

Contains the length of the pulse in 
seconds 

3.2.4.14 

Block Common 

UNITS 




Storage: 4 cells 



Variable 

XZ£e 

Dimension 

Units 

Description 

I0TAPE 

Integer 

1 

— 

Intermediate input far the storage of 
the input card images 

MICR0T 

Integer 

1 


When microfilm output is requested, 
this references the tape drive the 
microfilm output tape is mounted on 

PLTAPE 

Integer 

1 


When 4020 plots are desired, this is 
the unit, fastrand or tape, on which 
is stored the plot data 

UNIT 

Integer 

1 

” — 

References the tape drive that has the 
data tape mounted on it 



3.3 SUBROUTINE DOCUMENTATION 

This section presents detailed descriptions of each subprogram in 
the HEPCAT (HD011C) program. The descriptions include the function of 
each subprogram, its entry points, core requirements, external references, 
the common blocks used and internal symbols used. A basic logic diagram 
is also included to show the logic of each subprogram. 

3.3.1 MAIN PROGRAM HD011C 

3. 3. 1.1 Introduction 

HD011C is the master logic routine of the program. Its function is 
to keep the three basic portions of the program, input, calculations and 
output, in the proper sequence. 

3. 3.1. 2 Method 

When execution of the program begins, the first function under- 
taken is to put the input card images in an intermediate data file. Upon 
completion of this task, the data cards are read in and checked for errors. 
A loop is then defined which consists of reading the data tape, checking 
for errors, demultiplexing the data, filtering the data, performing 
engineering calculations if the engine is on, and reporting the results. 
This loop is redefined for each pulse processed. 

3. 3. 1.3 Entry Points 

This routine has one entry point, the execution name of HD011C. 

3. 3. 1.4 Core Requirements 
86 cells 

3. 3. 1.5 Subroutines Called 

CDNPUT 

CHEWER 

CR2TAP 

FILTR1 

FILTR2 

dHYDE 

0UTPUT 

SWAGER 
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3. 3. 1.6 Common Cross Reference 


Reference Section 

Common 

Variables Used 

3. 2. 4. 6 

FILES 

IDUMP, INT, IPL0T 

3.2.4. 7 

FLAGS 

ISEND, LAST, L00K 

3.2.4.11 

R0WS 

I0N, IQUIT, J0N 

3.2.4.14 

UNITS 

PLTAPE 


3. 3. 1.7 Internal Symbol Table 

There are no internal variables in this routine. 

3. 3. 1.8 Logic Diagram 

. The basic logic of the main program is shown in Figure 3-1. 
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Figure 3-1 Main Program (HD011C) Logic Diagram (continued) 
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Figure 3-1 Main Program (HD0T1C) Logic Diagram (continued) 
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Figure 3- 




1 Main Program (HD011C) Logic Diagram (continued) 
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3.3.2 SUBPROGRAM AVRGR 

3. 3. 2.1 Introduction 

This subprogram has one purpose - to filter five samples of the FILT1 
array into one sample of the FILT2 array giving a smoother data base. 

3. 3. 2. 2 Method 

Given five samples of one channel measurement, the subroutine filters 
these samples producing one sample. 


3. 3. 2. 3 Entry Points. 

This subroutine has one entry point, AVRGR. There are three arguments. 


Argument 


Jm 

Descri pti on 

KK 


Integer 

Channel being averaged, row 
subscript in the FILT1 array. 

I START 


Integer 

Start column in tehe FILT1 array 
for the averaging technique 

IST0P 


Integer 

Stop column in the FILT1 array 
for the averaging technique 

3. 3. 2. 4 Core Requirements 
70 cells 


3. 3. 2. 5 

Common Cross Reference 


Reference Section 

Common 

Variables Used 

3.2. 

4.1 

Blank 

FILT1 , FILT2 

3. 3. 2. 6 

Internal Symbol 

Definition 


Symbol 

Jm 

Dimension Units 

Description 

I 

Integer 

1 

Subscript controlling the channel 
of the FILT1 array which is being 
filtered 

MM 

Integer 

1 

Subscript controlling the sample 
of the FILT1 array being filtered 
Also used to store the filtered 


samples into the correct column 
of the FILT2 array. 

3. 3. 2. 7 logic Diagram 

A diagram depicting the logic of Subprogram AVRGR is presented 
in Figure 3-2. 
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AVERAGE FIVE SAMPLES 
OF DATA FROM ONE 
CHANNEL INTO ONE 
SAMPLE. DO FOR ALL 
FIFTY CHANNELS 


RETURN 



Figure 3-2. Subprogram AVRGR Logic Diagram 




3.3.3 SUBPROGRAM; ’'BLKDTA 


3. 3. 3.1 Introduction 


This is a block data routine used to initialize the arrays and different 
logic flags to some preset value until changed by input or program calculation. 


3. 3. 3. 2 Common Cross Reference 



Reference Section 

Common 

Variables Used 

3.2.4. 1 

Blank 

ENGDAT, ENGRAT, FILT1 , FILT2 
ST0RE 

3. 2. 4. 3 

C0MRT1 

PAB1 , PCS!, PFDS1 , P0DS1, 
TFDS1, T0DS1 

3. 2. 4. 4 

ENG 

CF1 , CF2, CF3, CF4, DCSTAR, 
G, GAMMA, K, MWH , MW0 

3. 2. 4. 5 

FACT0R 

BIAS, IB, IC, IS, NP1 , NP2, 
SCALE, TAB XI, TABX2 , TABY1 , 
TABY2 

3. 2. 4. 6 

FILES 

BEGFIL, IDUMP, INT, MXFILE, 
NLINES, NP 

3. 2. 4. 7 

FLAGS 

ISCAN, ISEND, IT0N, LAST, 
L00K, 

3. 2. 4. 8 

FUNCTN 

CX, CY 

3.2.4.10 

LABELS 

LABELSrLABENS, LABRAT 

3.2.4.11 

R0WS 

IFV, I0N, J0N, LSTPTS 

3.2.4.12 

TIME 

N 

3.2.4.14 

3. 3. 3. 3 Logic Diagram 

UNITS 

I0TAPE, MICR0T, PLTAPE, UNIT 


The logic of Subprogram BLKDTA is presented in Figure. 3.$. 


71 



Figure 3.3 Subprogram BLKDTA Logic Diagram ' 


72 



3.3.4 SUBPROGRAM CDNPUT 

3. 3. 4.1 Introduction 


Subprogram CDNPUT is the routine used to read and decode the user card 

input. 


3. 3. 4. 2 Method 

As each channel data card is read, all appropriate error checks are made 
and reported if errors are detected. The rest of the channel cards will be 
scanned for errors but do pulse will be processed. If no errors are found, 
the calibration curves will be read and assigned to the proper channel. The 
program constants are read, after which the logic flag card is read. If a 
plot tape is desired, the subroutine writes the identifying records at the 
beginning of the tape. 

3. 3. 4. 3 Entry Points 

There is one entry point to this subprogram; it is through the name 
CDNPUT. There are no calling arguments. 

3. 3. 4. 4 Core Requirements 
878 cells. 


3. 3. 4. 5 Common Cross Reference 



Reference Section 

Common 

Variables Used 

3. 2. 4. 2 

C0MRAT 

PAB, PCS, PFDS, P0DS , TFDS, 
T0DS 

3. 2. 4. 3 

C0MRT1 

PAB1 , PCS!, PFDS1 , P0DS1 , 
TFDS1 , T0DS1 

3. 2. 4. 4 

ENG 

AC, AT, DH0, D00, DPH, DP0, 
KF, K0 

3. 2. 4. 5 

FACT0R 

BIAS, IB, IC, IS, NP1 , NP2 ,• 
SCALE, TABX2, TABX2, TABY1 , 
TABY2 

3. 2. 4. 6 

FILES 

IDUMP, IPC, I PLOT, NDP, NP 

3.2.4.10 

LABEES 

IP0INT , BABELS, LABENS, 
LAB RAT 

3.2.4.11 

R0WS 

IFV, INITL 

3.2.4.14 

UNITS 

I0TAPE, MICR0T, PLTAPE 
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3. 3. 4. 6 Internal Symbol Table 


Variable 

Type 

Dimensions 

BIASIN 

Real 

1 

I 

Integer 

1 

IBLANK 

Integer 

1 

IC0UNT 

Integer 

1 

IC0UT1 

Integer 

1 

ID 

Integer 

1 

IER 

Integer 

1 

1 1 FV 

Integer 

1 

IL 

Integer 

1 

ILL 

Integer 

1 

INAM 

Integer 

8 

INDEX 

Integer 

1 

IT 

Integer 

50 

ITABL1 

Integer 

1 

ITABL2 

Integer 

1 

ITAB1 

Integer 

50 

ITAB2 

Integer 

50 

ITYPE 

Integer 

1 

IT1 

Integer 

1 

123 

Integer 

1 

142 

Integer 

1 


Units Description 

Temporary storage for the 
bias factor input by user 
Do loop index variable 
Contains BCD blanks. Used 
to check for a channel card 
with no parameter name 
Number of 100 series cali- ; 
bration tables that must 
be read 

Number of 200 series cali- 
bration tables that must 
be read 

Input channel number 
Error condition flag 
=. 0 -No input error 
= 1 -Some error in input 
deck 

BCD word which contains FV. 
Used to search for fire 
voltage channel 
Temporary storage 
Do loop index variable 
Contains the BCD names of 
the eight required engin 
neering parameters 
Contains total number of 
distinct calibration tables 
that must be input 
Temporary storage array con- 
taining the 100 series 
curve ID 

Temporary storage to read 
100 series table ID into 
Temporary storage to read 
200 series table ID into 
Used to store ID into for 
the 100 series table 
Used to store ID into for 
the 200 series table. 

Used to identify record 
type on creation of plot 
tape 

Temporary storage array 
containing the 200 series 
cal curve IDs 

Used to print the number of 
data words in a type two 
plot record 

Used to print the number 
of data words in a type thre£ 
plot record 
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Variable 

Jm. 

Dimensions 

Units 

Description 

152 

Integer 

1 

- 

Used to print the number of 
data words in a type one 
plot record 

J 

Integer 

1 

- 

Do loop index variable 

KK 

Integer 

1 

— 

Do loop index variable in 
an implied do loop 

LL 

Integer 

1 

- 

Do loop index variable 

N 

Integer 

1 

- 

Do loop index variable 

NAME 

Integer 

1 

— 

Variable containing BCD 
channel name 

NBIAS 

Integer 

1 

- 

Bias flag 

NCALCR 

Integer 

1 

- 

Calibration curve flag 

NSCALE 

Integer 

1 

- 

Scaling flag 

NUMTAB 

Integer 

1 

- 

Flag containing calibration 
curve identification 

TAB XI 1 

Real 

20 

“ 

Temporary storage for abscissa 
values of cal tables 

TABY1 1 

Real 

20 

** 

Temporary storage tor orcn- 
nate values of cal tables 

TC 

Real 

1 

— 

Contains BCD name for com- 
puter time in plot tape 

TR 

Real 

1 

“*■ 

Contains BCD name for pulse 
reference time in plot tape 


3. 3. 4. 7 Logic Diagram 

The logic diagram for subprogram CDNPUT is provided in Figure 3-4. 
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Figure 3-4 Subprogram CDNPUT Logic Diagram 
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Figure 3-4 Subprogram CDNPUT Logic Diagram (Continued] 
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STORE VALUE OF 
PROGRAM CONSTANTS 
IF USER DID 
NOT INPUT ONE 



Figure 3-4 Subprogram CDNPUT Logic Diagram (Continued] 
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Figure 3-4 Subprogram CDNPUT Logic Diagram (Continued) 
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3.3.5 SUBPROGRAM CHEWER 


3. 3. 5.1. Introduction 

Subprogram CHEWER is responsible for reading and demultiplexing the 
data tape. 

3.3. 5. 2 Method 

Because the data tapes are not created by Fortran write statements, the 
systems routine called NTRAN was used to process the tape. After being posi- 
tioned to the proper file, a record of 801 words is read in. Error checks are 
performed to ensure valid data. An error causes a message to be written and 
processing moves to the next record. When the first record of a file is read, 
all initialization of the other routines takes place. Once the unpacking is 
completed, the data is demultiplexed and identified with the proper channel. 

3. 3. 5. 3 Entry Points 

The subprogram has one entry point through the name CHEWER. There are 
no calling arguments. 

3. 3. 5. 4 Core Requirements 
3750 cells. 

3. 3. 5. 5 - Subroutines Called 

CDNPUT 

FILTR2 

FLD 

NTRAN 

0UTPUT 

SWAGER 


3. 3. 5. 6: ^Common Cross Reference 



Reference Section 

Common 

Variable Used 

3. 2. 4.1 

BLANK 

STORE 

3. 2.4. 5 

FACT0R 

IRUNN0 


3. 2. 4. 6 

FILES 

BEGFIL, IBL, IDUMP, ILINE, 
INT, MXFILE, NDP, NLINES , NP 

3. 2. 4. 7 

FLAGS 

ISCAN, ISEND, IT0N , LAST, L00K 

3.2.4.11 

R0WS 

INITL, I0N, O0N 

3.2.4.12 

TIME 

N 

3.2.4.13 

TIMLST 

TIMLST 

3.2.4.14 

UNITS 

MICR0T, PLTAPE, UNIT 
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3. 3. 5. 7 Interna] Symbol Table 


Variable 

M 

Dimensions 

Units 

Description 

DAT 

Real 

2403 

- 

Unpacked data is stored in this 
array 

I 

Integer 

1 

- 

Do loop index variable 

ICC 

Integer 

1 

•** 

Flip-flop flag used in the demul- 
tiplexing of the unpacked- data 

IDATIN 

■ Integer 

802 ' 

*• 

Array the data is read into before 
it is unpacked 

IEND 

Integer 

1 


Flag which indicates a pulse has 
been completely processed 
= 0 -not finished with a pulse 
= 1 -finished processing a pulse 

I FLAG 

Integer 

1 


Flag to indicate the first record 
of the file has just been read 
= 0 -first record has not been 
read 

= 1 -first record has just been 
read 

I FLIP 

Integer 

1 


Flag used to show a record was 
skipped because of faulty data 
= 0 -record not skipped 
= 1 -record just read was skipped 

IR 

Integer 

1 


Index of a computed go to statement 
= 1 -initialization for all sub- 
routines must take place 
= 2 -initialization has already 
been done for this pulse 

11 

Integer 

1 

- 

Subscript used in unpacking data 

12 

Integer 

1 

- 

Subscript used in unpacking data 

13 

Integer 

1 

- 

Subscript used in unpacking data 

KM 

Integer 

1 


Subscript used in demultiplexing 
data 

KNTFIL 

Integer 

1 

•— 

Number of consecutive end-of-file 
mails encountered on the data tape 

L 

Integer 

1 

*“ 

Subscript used in demultiplexing 
data 

M 

Integer 

1 


Subscript used in demultiplexing 
data 

NFILE 

Integer 

1 


Number of files passed on the data 
tape 

NREC 

Integer 

1 

“ 

Number of records processed in a 
file 

PCOUNT 

Integer 

1 


Number of pulses processed 


3. 3. 5. 8 Logic .Diagram 

The basic logic of subprogram CHEWER is presented in Figure 3-5. 
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Figure 3-5 Subprogram CHEWER Logic Diagram (Continued) 
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3. 3. 6.. .SUBPROGRAM CR2TAP-' 

3. 3. 6.1* Introduction 

Subprogram CR2TAP is used to read card images from the system input 
tape and write them on an intermediate data file. 

3. 3. 6. 2 Method 

After rewinding the intermediate storage device, the routine defines a 
loop consisting of reading a card image from the system input tape, writing 
the card image on the intermediate storage device, and checking for the end 
of the data deck. When the end card is reached, an end-of-file.mark is 
placed on the intermediate storage device and it is rewound in preparation 
to being used. 

3. 3. 6.3" Entry Points 

This routine has one entry point, CR2TAP, and has no calling arguments. 

3. 3. 6. 4 Core Requirements - 
395 cells 

3. 3. 6. 5 Common Cross Reference 


Reference 

Section 

Common 

Variables Used 

3.2.4 

.14 

UNITS 

I0TAPE, MICR0T 

3.3.6 .6 

Internal "Symbol 

Table 


Variable 

1m. 

Dimension Units 

Description 

I 

Integer 

1 

Subscript in read statement and 
write statement 

I DATA 

Integer 

14 

Card images are read into this array 
and written out of it. 

IEND 

Integer 

1 

Read terminator. Contains the BCD 


data, ‘CASEND 1 . When this word is 
encountered in the read statement, 
the data deck has been completely 
transferred from the system input 
tape to the intermediate data file. 

3.3. 6. 7 Logic Diagram 

The basic logic of subprogram CR2TAP is presented in Figure 3-6. 
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REWIND 

INTERMEDIATE 

DATA 

FILE 



PUT END-OF- 
FILE MARK ON 
INTERMEDIATE 
DATA FILE 


f REWIND 
INTERMEDIATE 
v DATA FILE 


RETURN 


Figure 3-6 Subprogram CR2TAP Logic Diagram 
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3.3.7 SUBPROGRAM FILTR1 

3.3.7. 1 Introduction 

FILTR1 has been designed to perform the- first filtering of data and to 
determine when the fire voltage crosses the' threshold value (3300 counts). 

3. 3. 7. 2 Method 

Subroutine FILTR1 is used to smooth data points by simple arithmetic 
averaging. Two points from the STORE array are combined into one and placed 
in the FILT1 array. After this occurs, FILTR1 searches for the point in time 
the fire voltage crosses the threshold or for the point the fire voltage drops 
below the threshold value. 

3. 3. 7. 3 Entry Points 

There is one entry point through the name FILTR1. There are no calling 
arguments . 

3. 3. 7. 4 Core Requirements 
392 cells. 

3. 3. 7. 5 Common Cross Reference 


Reference Section 

Common 

Variables Used 

3. 2. 4.1 

BLANK 

FILT1 , ST0RE 

3. 2. 4. 7 

' FLAGS 

ISCAN, IT0N, L00K 

3.2.4.11 

R0WS 

IFV, I0N, KKPBEG, KKPEND 


3. 3. 7. 6 Internal Symbol Table 


Variable 

1m. 

Dimension 

Units 

Descfipti on. 

I 

Integer 

1 

_ 

Do loop index variable 

IADD 

Integer 

1 

** 

Starting point for storage into the 
FILT1 array 

IJ 

Integer 

1 

- 

Row subscript for the FILT1 array 

IM1 

Integer 

1 

- 

Do loop index parameter 

J 

Integer 

1 

- 

Do loop index variable 

KM 

Integer 

1 

- 

Odd row subscript for ST0RE array 

KMP1 

Integer 

1 

- 

Even row subscript for ST0RE array 

KPBEG 

Integer 

1 


Beginning row in the ST0RE array 
containing the .fire’ voltage signal 
that has' gone over the threshold 
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3. 3. 7. 6 

Internal Symbol Table (cont) 


Variable 

Type 

Dimension Units 

Description 

KPEND 

Integer 

1 

Last row in the ST0RE array con- 
taining the fire voltage signal 
before it has dropped below the 
threshold 

M 

Integer 

1 

Do loop index variable 

THMAX 

Real 

1 

Maximum threshold - fire voltage 
must exceed this value for engine 
to be considered "on" 

THMIN 

Real 

1 

Minimum threshold"- fire voltage 
less than or equal to this value 
implies an engine "off" condition 


3.3. 7. 7' Logic Diagram 

The basic logic of subprogram FILTR1 is presented in Figure 3-7. 
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Figure 3-7 Subprogram FILTR1 Logic Diagram 
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SET 'ENGINE 
OFF' FLAG AND 
CALCULATE SUB- 
SCRIPT OF ROW . 
IN FILT1 ARRAY 
WHERE OFF IS 
LOCATED 





Figure 3-7 Subprogram FILTR1 Logic Diagram (Continued) 
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3.3.8 SUBPROGRAM FILTR2 

3. 3.8.1 Introducti on 

FILTR2 -is designed to provide the second filtering process-averaging five 
samples to form a single sample value. It also recenters the averaging window 
when the fire voltage rises above or goes below the threshold. 

3. 3. 8. 2 Method 

Until the fire voltage rises above the threshold value, FILTR2 performs a 
simple averaging process. When the rise in fire voltage above the threshold 
value is detected, the filtering process stops until the next record is read. 
This is to provide sufficient data to detect a noise spike. If the detected 
'on 1 is not a noise spike the averaging is recentered around the time when 
the fire voltage crossed the threshold value. At this point the averaging 
process starts again. When the fire voltage drops below the threshold value, 
the averaging window is recentered again. Simple averaging is then continued 
to the end of the data file being processed. 

3.3. 8. 3 Entry Points 

The name FILTR2 is the only entry point to this subroutine. There are 
no calling arguments. 

3. 3. 8. 4 Core Requirements 
1052 cells. 

3.3. 8. 5 Subroutines Called 

AVRGR 

SHIFT 

2ER0 

3. 3.8.6 Common Cross Reference 


Reference Section 

Common 

Variables Used 


3.2’4J 

BLANK 

ENGDAT, -ENGRAT, FILT1 , 

FILT2, ST0RE 

3. 2.4.7 

FLAGS 

ISEND' 


3.2.4.11 

RSWS 

IFV, INITL, 350N, IR0W, 
KKPBEG, KKPEND, KKSAVE 

JEND, JR0W, 

3.2.4.12 

TIME 

N 
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3. 3. 8. 7 Internal Symbol Table 


Vari able 

1m. 

Dimension 

Units 

DELT 

Real 

1 

sec 

I 

Integer 

1 

_ 

ICENTR 

Integer 

1 

- 


ICNT1 

Integer 

1 

- 

ICNT2 

Integer 

1 

- 

ICNT3 

Integer 

1 

- 

ICNT4 

Integer 

1 

- 

IPIV 

Integer 

1 

- 

IP0INT 

Integer 

1 

- 

I START 

Integer 

1 

- 

IST0P 

Integer 

1 


J 

Integer 

1 


JCENTR 

Integer 

1 

- 

JJ 

Integer 

1 

_ 

KK 

Integer 

1 

- 

L0C 

Integer 

1 


N0ISE 

Integer 

1 



TREF 

Real 

1 

sec 

ISAVE 

Peal 

1 

sec 


TTSAVE 

Real 

1 

sec 

TZER0 

Real 

1 

sec 


Description 

Line interval between final 
filtered data points 
Do loop index variable 
Window centering flag for beginn- 
ing of engine' fire pulse 
= 0 -Initial value 
= 1 -Beginning of engine fire 
pulse detected and window center- 
ing complete 

Counter used to sequence events 
Counter used to sequence events 
Counter used to sequence events 
Counter used to sequence events 
Row subscript of FILT1 array con- 
sidered to be the beginning of 
the engine fire pulse 
Flag used for branching after entry 
into subroutine 

Starting row in the five element set 
of FILT1 values to be averaged 
Ending row in the five element set 
of Fill! values to be averaged 
Do loop index variable 
Same as ICENTR except used for end 
of enginq fire pulse 
Do loop index variable 
Starting row in averaging process 
Row location of the engine fire 
pulse beginning or end in the five 
element set of numbers in the filter 
frame in which the change occurred 
Flag used to screen out noise 
pulses, i.e., pulses which begin 
and end in one physical record. 

-no noise encountered 
-noise in this record, treat 
as engine off 

Pulse reference time. Use to cal- 
culate length of engine burn 
Time reference initialized to zero 
at beginning of each file and reset 
for referencing at first and second 
window centerings at the beginning 
and end of each engine fire pulse 
respectively 

Temporary storage for the last time 
saved 

Initial time reference 
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3. 3-8. 8 Logic Diagram 

A logic diagram showing the major functions of subprogram 
FILTR2 is provided in Figure 3-8. 
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Figure 3-8 Subprogram FILTR2 Logic Diagram 
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Figure 3- 



DO SIMPLE 
AVERAGING FOR 
ALL SAMPLES IN 
FILT1 ARRAY 
'AVRGR' 


CALCULATE 
TIME OF 
SAMPLES 


RETURN 



RECENTER THE 
AVERAGING WINDOW 
MAKING THE MIDDLE 
SAMPLE THE ROW OF 
THE F1LT1 ARRAY 
WHERE THE OFF WAS 
FOUND 


RESUME THE 
SIMPLE AVERAGING 
USING START AND 
STOP INDEXES 
GIVEN ABOVE 
'AVRGR' 


DO SIMPLE 
AVERAGING 
FOR ALL SAMPLES 
IN FILT1 
ARRAY 
'AVRGR' 


8 Subprogram FILTR2 Logic Diagram [Continued! 
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3.3.9 SUBPROGRAM HGAMMA 

3.3.9.1 Introduction 

HGAMMA calculates the specific heat ratio of gaseous hydrogen. 

3. 3. 9. 2 Method 

The following equation is used to calculate the specific heat 
ratio of gaseous hydrogen. The equation was developed from polynomial 
curve fits of data available from the National Bureau of Standards 
and other sources on gaseous hydrogen. The equation presented is valid 
for pressures up to 100 atmospheres and temperatures between 100° and 
400° Kelvin. 


GAMMAH = 1.4 + 1.7916552 - 9.3494600E+01* 1/T + 3.4401152E+03*(1/T) 2 
-1.5811495E-02*T + 7 ,3710370E-05*T 2 - 1 .9032770E-07*T 3 
+2 . 5607340E-1 0*T 4 - 1 .3934965E-13*T 5 
-9.5212948E-03*P - 9 .4796595E-06*P 2 + 4.7574151 E-08*P 3 
-9 . 8875463E-05*T*P + 3 . 99741 79E-07*T 2 *P - 3.3917970E-08*T*P 2 
-7.3903897E-10*T 3 *P + 3.0774794E-10*T 2 *P 2 
+5.2240539E-13*T 4 *P - 4.6828143E-13*T 3 *P 2 

where: 

P:= Pressure in atmospheres 
T:= Temperature in degrees Kelvin 


.3. 3. 9. 3 Entry Points 

There is one entry point to this subprogram, HGAMMA. The routine has 
three calling arguments. 


Argument 

Type 

Dimension 

TFI 

Real 

1 

PFII 

Real. 

1 

GAMMAH 

Real 

1 

3. 3. 9. 4 

Core Requirements 


119 cells 


Units Descripti on 

°F Fuel injection temperature 

psia Fuel ignitor injector pressure 

Specific heat ratio for gaseous 
hydrogen 
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3. 3. 9. 5 Interna] Symbol Table 


Variable Type Dimension Units Descripti on 


PATM Real 1 ATM Fuel ignitor injector pressure 

converted to atmospheres. 

T Real 1 °K Fuel injection temperature con- 

verted to “Kelvin 


3. 3. 9. 6 Logic Diagram 

The basic logic of subprogram HGAMMA is presented in Figure 3-9. 
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Figure 3-9 Subprogram HGAMMA Logic Diagram 
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3.3.10 SUBPROGRAM HZH 
3.3.10.1- Introduction 

Subprogram HZH calculates the compressibility factor for gaseous hydrogen. 

3.3.10.2 Method 

The following equation is used to compute the compressibility factor. 

The equation was developed from polynomial curve fits of data available from 
the National Bureau of Standards and other sources on gaseous hydrogen. The 
equation presented is valid for pressures up to 100 atmospheres and temper- 
atures between 100° and 400° Kelvin. 

ZH = 1. - 5.3350829E+03*(|) 2 + 1 .8336324E+02*(|) - 2.6772676 
+ 2 . 1 605597E-02*T - 1 .0357253E-04*T 2 + 2.9241 458E-07*T 3 

- 4.4684258E-10*T 4 + 2.8380505E-13*T 5 - 3.9254562E-03*P 
+ 2.5326543E-05*P 2 + 4.572284E-10*P 3 + 6.1928900E-05*T*P 

- 2 . 9497530E-07*T 2 *P - 2.591C804E-07*T*P 2 
+ 5 . 8954277E-1 0*T 3 *P + 8.7135669E-10*T 2 *P 2 

- 4.247153E-13*T 4 *P - 9.59161 14E-13*T 3 *P 2 

where: 

P = Pressure in atmospheres 
T = Temperature in degrees Kelvin 

3.3.10.3 Entry Points 

This subprogram has one entry point, HZH. There are three arguments. 


Argument 


Dimension 

Units 

Description 

TFI 

Real 

1 

°F 

Fuel injection temperature 

PFII 

Real 

1 

psia 

Fuel ignitor injection pressure 

ZH 

Real 

1 

— 

Compressibility factor for hydrogen 


3.3.10.4 Core Requirements 
118 cells 


98 



3.3.10.4 

Internal 

Symbol Table 



Variable 

ime 

Dimension 

Units 

Description 

PATM 

Real 

1 

atm 

Fuel ignitor injection pressure 
converted to atmospheres 

T 

Real 

1 

°K 

Fuel injection temperature con- 
verted to “Kelvin 


3.3.10.5 Logic Diagram 

The logic 'diagram for subprogram HZH is provided in Figure 3-10. 
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-10 Subprogram HZH Logic Diagram 


100 






3.3.11 SUBPROGRAM OHYDE 

3.3.11.1 Introduction 

The function of subprogram JHYDE is to provide all the scaling, 
biasing, and conversions from counts to engineering units. 

3.3.11.2 Method 

Each channel must have either a scaling flag or a calibration 
curve flag set. The routine searches each table of flags until it 
finds one which is set. It then takes the appropriate action. The 
routine then checks to see if the channel has to be biased. If the 
calibration curves are used, a check is made to insure that there are 
no off-scale points. If one is found, the program prints an error 
message and halts. 

3.3.11.3 Entry Points 

The only entry point is through the name JHYDE. There are no 
calling arguments. 

3.3.11.4 Core Requirements 
608 cells. 


3.3.11.5 Common Cross Reference 


Section Reference 


Common 


Variables Used 



3.2.4. 1 

BLANK 

FILT2 , 

ST0RE 


3. 2.4.5 

FACT0R 

BIAS, 

IB, IC, IS, NP1 , NP2 , SCALE, TABX1 , 

• 


TABX2 , 

TABY1 , TABY2 


3. 2.4.6 

FILES 

IDUMP 



3.2.4.11 

R0WS 

KKSAVE 


3.3.11.6 Internal Symbol Table 



Variable Type 

Dimension 

Units 

Description 

BIGX 

Real 

1 

- 

Factor used in the two point inter- 
polation of the cal curves 

BIGY 

Real 

1 

— 

Factor used in the two point inter- 
polation of the cal curves 

I 

Integer 

1 

- 

Do loop index variable 

J 

Integer 

1 

- 

Do loop index variable 

K 

Integer 

1 

- 

Do loop index variable 

LL 

Integer 

1 

- 

Number of points in the table being 


used 
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3.3.11.6 

Internal 

Symbol Table 

(Continued) 


Vari able 

Type 

Dimension 

Unit 

Description 


SMLX 

Real 

1 

- 

Factor used in the two point 
polation of the cal curves 

inter 

SMLY 

Real 

1 

“ 

Factor used in the two point 
polation of the cal curves 

inter 


3.3.11.7 Logic Diagram 

A logic diagram for subprogram JHYDE is provided in Figure 3-11. 
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Figure 3-11 Subprogram JHYDE Logic Diagram 
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Figure 3-11 Subprogram JHYDE Logic Diagram (Continued) 
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3.3.12 SUBPROGRAM 0GAMMA 

3.3.12.1 Introduction 

Subroutine 0GAMMA is used to calculate the specific heat ratio 
for gaseous oxygen. 

3.3.12.2 Method 

The following equation is used to compute the specific heat ratio. 

The equation was developed from polynomial curve fits of data available 
from the National Bureau of Standards and other sources on gaseous 
oxygen. The equation presented is valid for pressures up to 100 atmos- 
pheres and temperatures between 100° and 400° Kelvin. 

GAMMA0 = 1 .4-1 .7457824E-02 + 1 .935791 7E-04*T - 7.2588636E-07*T 2 
+1 . 0841843E-09*T 3 - 1 .2549120E-12*T 4 + 0.1634301*P 
+1.4833429E-03*P 2 - 5.3033020E-08*P 3 

-2.2332967E-03*T*P + 1 .1615558E-05*T 2 *P - 1 .3824483E-05*T*P 2 
-2 . 665282E-08*T 3 *P + 4.2607112E-08*T 2 *P 2 
+2.2589584E-11*T 4 *P - 4.3236307E-11*T 3 *P 2 

where: 

P = Pressure in atmospheres 
T = Temperature in degrees Kelvin 

3.3.12.3 Entry Points 

There is one entry point to this subprogram, 0GAMMA, and it has three 
arguments . 


Argument 

Jm. 

Dimension 

Units 

Descri ption 

T0I 

Real 

1 

°F 

Oxidizer injection temperature 

P0II 

Real 

1 

psi a 

Oxidizer ignitor injection pressure 

GAMMA0 

Real 

1 

— 

Specific heat ratio for gaseous 





oxygen 

3.3.12.4 

Core Requirements 



102 

cells 
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3.3.12.5 

Internal 

Symbol Table 



Variable 

Jm. 

Dimension 

Units 

Description 

PATM 

Real 

1 

ATM 

Oxidizer ignitor injection pressure 
converted to atmospheres 

T 

Real 

1 

°K 

Oxidizer injection temperature 
converted to “Kelvin 


3.3.12.6 Logic Diagram 

The logic of subprogram 0GAMMA is presented in Figure 3-12. 
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Figure 3-1 2 Subprogram 0GAMMA Logic Diagram 
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3.3.13 subprogram Output 

3.3.13.1 Introduction 

Subroutine OUTPUT is responsible for handling all reports generated 
by HD011C. The error messages are the only exception to the above statement; 
they are produced in the routine where they occur. 

3.3.13.2 Method 

This subprogram controls the generation of all reports; printed, micro- 
film and history tape. There are five types of written reports. Each type of 
printed output can be duplicated on microfilm. A type one report or a BLOCK 1 
report is a print out of all the input data. This includes card images, scale 
factors, biases, calibration curves and program constants. The BLOCK II 
print out is the report on each channel after it has been demultiplexed, 
scaled, biased or converted to engineering units. The BLOCK III report gives 
the results of the engine performance analysis. Closely associated with this 
is the BLOCK IV report in which engine performance standardization results are 
output. If a pulse on the data tape is to be dumped, a BLOCK V report is 
generated. OUTPUT also generates the plot tape which is used as input data to 
the TRWPLT plotting program. 

3.3.13.3 Entry Points 


This routine's entry point is the name OUTPUT. There are no calling 
arguments . 


Variables Used 


3.3.13.4 Core Requirements 
2135 cells 

3.3.13.5 Common Cross Reference 


Reference Section Common 

3. 2.4.1 BLANK 

3. 2. 4. 2 COMRAT 

3. 2. 4. 4 ENG 

3. 2. 4. 5 FACTOR 


ENGDAT, ENGRAT, FILT2, STORE 

AE, I RATED, PAB, PCS, PODS, TFDS, TODS 

AC, AT, CF1 , CF2, CF3, CF4, DCSTAR, DHO, 
D00, DPH, DPO, G, GAMMA, K, KF, KO, MWH, 
MWO, 

BIAS, IB, IC, IRUNNO, IS, NP1 , NP2, 

SCALE, TABX1 , TABX2, TABY1 , TABY2 
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3.3.13.5 Common Cross Reference (Continued) 


Reference 

Section 

Common 

Variables Used 

3. 2. 4. 6 


FILES 

IBL, IDUMP , ILINE , IPC, IPL0T,NDP, NLINES , NP 

3.2.4. 9 


ICT 

ICT1 , N0C0NV 

3.2.4.10 


LABELS 

LABELS, 

LABEMS, LABRAT 

3.2.4.11 

3.2.4.13 


R0WS 

TIMLST 

IQUIT, 

TIMLST 

IR0W, J0N, JR0W, KKSAVE , LSTPTS 

3.2.4.14 

3.3.13.6 

UNITS 

Internal Symbol Table 

I0TAPE. 

, MICR0T, PLTAPE 

Variabl e 

Tffie 

Dimension 

Unit 

Descri ption 

CIV 

Real 

80 

- 

Used in the BL0CK I output process. 
Different sets of constants are stored 
here to make output easier. 

I 

Integer 

1 

- 

Do loop index variable 

IALPHA 

Integer 

10 


Contains the integers 0-9 in BCD form. 
Used to translate SEL 600 BCD run ID 
into UN I VAC 1108 BCD. 

IBEGN1 

Integer 

1 


This flag causes the engine start up 
point to be printed independently 
of the print counter 

IBEGN2 

Integer 

1 


This flag causes the engine shut down 
point to be printed independently of 
the print counter. 

I BLANK 

Integer 

1 


Used in masking operation in the trans- 
lation of run ID. 

I CAN 

Integer 

50 

- 

Array containing the channel numbers 

I DATA 

Integer 

14 

- 

Array used to read card images into 

IDU1 

Integer 

1 


Used to create channel output labels, 
the channel parameter names' 

= 0 -names already stored 
= 1 -store names in proper output array 

IEND 

Integer 

1 

— 

BCD data word containing CASEND in it. 
Used to stop card reading process. 

IFRD 

Integer 

12 

— 

Contains the UNIVAC 1108 BCD translation 
after a match has occurred in the run ID 

IG0 

Integer 

1 


Index on a computed go to statement. 
Controls page ejection and return to 
correct print statement 

I0UTLB 

Integer 

80 


Array containing the alphanumeric para- 
meter name of each channel arranged in 
proper sequence for output 

101 

Integer 

80 

“ 

Contains the alphanumeric names of the 
program constants 

IREC 

Integer 

1 

— 

Record counter, counts number of records 
processed 

IR0W1 

Integer 

1 


Flag to keep engine startup point from 
being printed more than once. 

ISKIP 

Integer 

1 


Used to determine when the BL0CK II, 
BL0CK III, and BL0CK IV report should 


be generated. 
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Description 


3.3.13.6 Internal Symbol Table (Continued) 
Variable Type Dimension Units 


ITRY 

Integer 

10 

- 

ITYPE1 

Integer 

1 

- 

ITYPE2 

Integer 

1 

- 

ITYPE3 

Integer 

1 

- 

J 

Integer 

1 

_ 

JR0W1 

Integer 

1 

- 

J1 

Integer 

1 

- 

L 

Integer 

1 

_ 

LL 

Integer 

1 

- 

LLL 

Integer 

1 

- 

LI 

Integer 

1 

- 

M 

Integer 

1 

- 

NWRD 

Integer 

6 

- 

NWRD1 

Integer 

1 

- 

NWRD2 

Integer 

1 

- 

NWRD3 

Integer 

1 

- 


Contains the integer 0-9 in SEL 600 
BCD notation 

Record identifier fora type one record 

on the TRWPLT plot tape 

Same as ITYPE1 except for a type two 

record 

Same as ITYPE1 except for a type three 
record 

Do loop index variable 

Flag to keep engine shutdown point from 

being printed more than once 

Subscript controlling print of ST0RE 

array 

Do loop index parameter 

Do loop index parameter 

Do loop index parameter 

Flag used to determine if the BCD run 

ID needs to be shifted right or left 

Used as a power of two to cause the 

shift of the run ID 

Array used in the masking process of 

the translation of the run ID 

Number of data words in a type one 

record on the TRWPLT plot tape 

Same as above except for a type two 

record 

Same as above except for a type three 
record 


3.3.13.7 Logic Diagram 

Subprogram OUTPUT logic is presented in Figure 3-13. 
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Figure 3-13 Subprogram OUTPUT Logic Diagram 
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Figure 3-13 Subprogram OUTPUT Logic Diagram CContinued) 
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Figure 3-13 Subprogram OUTPUT Logic Diagram {.Continued} 
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RETURN 



/ OUTPUT \ 
'BLOCK V' > 
REPORT ON 
i MICROFILM j 
\ TAPE J 



Figure 3-13 Subprogram OUTPUT Logic Diagram (Continued) 
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3.3.14 SUBPROGRAM 0XZ0X 
3.3.14. Introduction 

Subroutine 0XZ0X is used to calculate the compressibility factor 
of gaseous oxygen. 


3.3.14.2 Method 


The following equations are used to compute the compressibility 
factor for gaseous oxygen. The equations were developed from polynomial 
curve fits of the data available from the National Bureau of Standards 
and other sources on gaseous exygen. The equations presented are valid 
for pressures up to 100 atmospheres and temperatures between 100° and 
400° Kelvin. 


B = 


-8.71 36945E-06 + 4.606507E-01*(yj - 1 .3795294E+02*(j 
-2 . 1 663662E+04*(yj + 2 .2765597E+06*fyj - 2.2174297E+08*(y 
+1. 058081 9E+10*(|) - 2.1 920552 E+ll*(j- 


C = 


6.753855E-06 - 1. 02771 66E 

.. ,3 

-2.1384872E+03* 




-02*(y 


+ 6.5537055* 
i4 


+ 4.2428099E+05* 


-5 . 31 77903E+07*( y J + 3.2860596E+09*( 


-1.1314356E+ll*(j] 



D = -1 .7671108E-10 - 6 .3527586E-06*B + 1 .5610387E-02*B 2 + 4.6457575*B 3 
+4.321 3223E+02*B 4 + 7.8725193E+04*B 5 + 2. 855241 0E+06*B 6 
+1 ,4952967E+08*B 7 


Z0X = 1 + B*P + C*P 2 + D*P 3 
where: 

P = Pressure in atmospheres 

B,C,D = Functions of Temperature in degrees Kelvin 
T = Temperature in degrees Kelvin 
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3.3.14.3- > Entry Point 


The only entry point to this 

subprogram 

is through the name 0XZ0X. 

There are 

three calling arguments 

associated 

with the entry point. 

Argument 

M 

Dimension 

Units 

Description 

T0I 

Real 

1 

°F 

Oxidizer injection temperature 

P0II 

Real 

1 

psia 

Oxidizer ignitor injection pressure 

Z0X 

Real 

1 


Compressibility factor of gaseous' 
.oxygen 

3.3.14.4 

Core Requirements 
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cells 




3.3.14.5 

Internal 

Symbol Table 



Vari able 

I m. 

Dimension 

Units 

Description 

B 

Real 

1 

— 

Function of temperature in degrees 
Kelvin 

C 

Real 

1 

— 

Same as B 

D 

Real 

1 

— 

Same as B 

PATM 

Real 

1 

ATM 

Oxidizer ignitor injection pressure 
converted to atmospheres 

T 

Real 

1 

°K 

Oxidizer injection temperature 
converted to degrees Kelvin 


3.3.14.6 Logic Di-agram 

The logic of subprogram 0XZ0X is provided in Figure 3-14. 
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Figure 3-14 Subprogram 0XZ0X Logic Diagram 
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3.3.15 SUBPROGRAM RATED 

3.3.15.1 Introduction 

Subprogram RATED was developed to perform engine performance 
standardization calculations. 

3.3.15.2 Method 

Basically the subroutine uses an iteration type scheme to standardize 
the engine's performance. All equations and assumptions are stated in 
Section 1. The convergence criteria is that the calculated chamber 
pressure at injector .face must be sufficiently close to the adjusted 
calculated chamber pressure at injection face. If this condition 
cannot be met, the iteration is stopped for the particular time slice 
being examined and an error message is written. Several error checks 
are also made during the process. If any of the error conditions are 
encountered, an error message is written and the iteration is stopped 
for that time slice. 

3.3.15.3 Entry Points 

Only one entry point has been established for this subroutine. 

That entry is through the name RATED. There are six calling arguments: 


Argument 

Type Dimension 

Units 

Description 

I 

Integer 

1 

“ 

Subscript specifying which row 
of the FILT2 array is being used. 

PNS 

Real 

1 

psia 

Nozzle stagnation pressure. 

WDOTF 

Real 

1 

Ibm/sec . 

Fuel flowrate 

WDOTO 

Real 

1 

Ibm/sec 

Oxidizer flowrate 

WDOTT 

Real 

1 

Ibm/sec 

Total flowrate 

INITL 

Integer 

1 


Initialization flag. 

= 0 - do not initialize routine 
= 1 - initialize routine 

3.3.15.4 

Core Requirements 




889 cells 
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3.3.15.5 Subprograms Called 


HZH 

0XZ0X 

SQRT 

3.3.15.6 Common Cross Reference 



Reference Section 


Common 

Variables Used 


3. 2. 4.1 


Blank 

FILT2 


3 . 2 . 4 .'2 


COMRAT 

All variables 


3. 2.4.4 


ENG 

AT,G,MWH,MW0 


3. 2. 4. 6 


FILES 

ILINEjNLINES 


3. 2. 4. 9 


ICT 

N0C0NV 


3.2.4.10 


LABELS 

IP0INT 

3.3. 

15.7 Internal Symbol 

Table 



Variable Type Dimension 

Units 

Description 

FT 

Real 

1 

- 

Function of thrust, presently set 
to zero. 

J 

Integer 

1 

- 

Iteration counter. 

M2 

Integer 

1 

- 

Subscript giving location of PC 
parameter in FILT2 array. 

M3 

Integer 

1 

- 

Subscript giving location of 
PTF0 parameter in FILT2 array. 

M4 

Integer 

1 

- 

Subscript giving location of PT00 
parameter in FILT2 array. 

M5 

Integer 

r 

- 

Subscript giving location of PDF0 
parameter in FILT2 array. 

M6 

Integer 

i 

- 

Subscript giving location of PD00 
parameter in FILT2 array. 

M7 

Integer 

i 

- 

Subscript giving location of TF0I 
parameter in FILT2 array. 

M8 

Integer 

i 

- 

Subscript giving location of T00I 
parameter in FILT2 array. 

NO IT 

Integer 

i 

- 

Maximum number of iterations 
allowed. Currently set to 10. 

PC 

Real 

9 

psia 

\ 

Chamber pressure. 
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3.3.15.7 

Internal 

Symbol Table (Conti 

nued) 

Variable 


Dimension 

Units 

Description 

PDF0 

Real 

9 

psia 

Fuel orifice delta pressure. 

PD00 

Real 

9 

psia 

Oxidizer orifice delta pressure. 

PTF0 

Real 

9 

psia 

Fuel orifice total pressure. 

PT00 

Real 

9 

psia 

Oxidizer orifice total pressure. 

TF0I 

Real 

9 

°F 

Fuel orifice inlet temperature. 

T00I 

Real 

9 

°F 

Oxidizer orifice inlet temperature. 

ZH 

Real 

1 

; 

- 

Compressibility factor of gaseous 
hydrogen. 

Z0X 

Real 

1 

— 

Compressibility factor of gaseous 
oxygen. 

3.3.15.8 

Logic Diagram 




The logic of subprogram RATED is provided in Figure 3-15. 
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Figure 3-15 Subprogram RATED Logic Diagram 








Figure 3-15 Subprogram RATED Logic Diagram (Continued) 
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3.3.16 SUBPROGRAM SHIFT 


3.3.16.1 Introduction 

This subprogram is used to shift data from one part of the FILT1 
array to another section of the same array. 

3.3.16.2 Method 

The first ten rows of the FILT1 array are replaced by the last ten 
rows. This is done to insure that the averaging window can be centered 
correctly when the fire voltage exceeds the threshold value. 

.3.3.16.3 Entry Points 

The entry into this routine is through. the name SHIFT. There are 
no calling arguments. 

3.3.16.4 Core Requirements 
/ 

38 cells 


3.3.16.5 Common Cross Reference 


Section Reference 


Common 


Variables Used 


3. 2. 4.1 


Blank 


FILT1 


3.3.16.6 Internal Symbol Table 

Variable Type Dimension Units 

I Integer 1 

J Integer 1 


Description 

Subscript controlling the rows 
of the FILT1 array which correspond 
to the first filtered sample 
Subscript controlling the columns 
of the FILT1 array which correspond 
to the channels 


3.3.16.7 Logic Diagram 


The logic of subprogram SHIFT is provided in Figure 3-16. 


123 



Figure 3-16 Subprogram SHIFT Logic Diagram 
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3.3.17 SUBPROGRAM SWAGER 

3.3.17.1 Introduction 


This subprogram was developed to calculate the engineering data • 
required to analyze engine performance. 

3.3.17.2 Method 

This routine is not called until the fire voltage has crossed the 
threshold value which indicates the engine is on. The equations used to 
calculate the engineering parameters are explained in detail in Section 1. 

The parameters are calculated until the fire voltage drops below the 
threshold value. At this point, the next fifty data points are included 
in the calculations to display the shutdown transients. The integration 
in the subroutine is done by the trapezoidal method. 

3.3.17.3 Entry Points 

This routine has only one entry point, through the name SWAGER. 

There are no calling parameters. 

3.3.17.4 Core Requirements 
969 cells 

3.3.17.5 Subprograms Referenced 


HGAMMA 

HZH 

0GAMMA 

0XZ0X 

RATED 

SQRT 

3.3.17.6 Common Cross Reference 


Reference Section Common Variables Used 


3. 2.4.1 

Blank 

ENGDAT,ENGRAT, FILT2 

3. 2. 4. 2 

C0MRAT 

All variables 

3. 2. 4. 4 

ENG 

AC,AT,CF1 ,DCSTAR,DH0, D00 
DPH,DP0,G,K,KF,K0 ,MWH,MW0 

3. 2. 4. 6 

FILES 

IPC 

3. 2. 4. 8 

FUNCTN 

CX,CY 

3. 2. 4. 9 

ICT 

ICT1 ,N0C0NV 

3.2.4.10 

LABELS 

IP0INT 

3.2.4.11 

R0WS 

INITLjIQUIT, J0N,KKSAVE,LSTPTS 

3.2.4.13 

TIMLST 

TIMLST 
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3.3.17.7 

Internal Symbol Table 



Variable 

ly£e 

Dimension 

Units 

Description 

BETAF 

Real 

1 

- 

Ratio of fuel orifice diameter 
to upstream fuel pipe diameter. 

BETAp 

Peal 

1 

- 

Ratio of oxidizer orifice diame- 
ter to upstream oxidizer pipe 
di ameter. 

CSTAR 

Real 

1 

ft/sec 

Characteristic exhaust velocity 

CSTRMX 

Real 

1 

ft/sec 

Maximum value CSTAR can be. If 
it exceeds CSTRMX, it is set 
equal to zero. 

CSUBF 

Real 

1 

- 

Thrust coefficient 

DCSTA1 ' 

Real 

1 

ft/sec 

Equivalenced to the 12th position 
of the TENG array. Used to faci- 
litate output procedures. Set 
equal to CSTAR. 

DT 

Real 

1 

sec 

Increment time step in the 
integration section. 

DTMAX 

Real 

1 

sec 

Largest value DT may assume. 

ETACS 

Real 

1 

- 

Standardized CSTAR efficiency 
factor. 

F 

Real 

9 

Ibf 

Thrust 

FI 

Real 

1 

lbf 

Same as F. Equivalenced to 4th 
position of the TENG array for 
output purposes. 

GAMMAH 

Real 

1 

- 

Specific heat ratio of gaseous 
hydrogen . 

GAMMA0 

Real 

1 

- 

Specific heat ratio of gaseous 
oxygen. 

I 

Integer 

1 

- 

Do loop index. 

IBEGN1 

Integer 

1 


Logic flag used to indicate 
first pass through SWAGER is 
over. 

= 1 - first pass not finished 
= 2 - first pass is finished 
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3.3.17.7 

Internal Symbol Table 

(Continued) 

Variabl e 

lyfie 

Dimension 

Units 

Descripti on 

IBEGN2 

Integer 

1 


Logic flag used to indicate fire 
voltage has dropped below thres- 
hold, therefore start including 
points of shutdown transients. 

= 1 - engine has not gone off 
= 2 - engine has gone off 

ICT2 

Integer 

1 


Flag used to determine if the 
engine performance standardiza- 
tion (EPS) should take place for 
a particular time slice. 
f 1 - EPS should not take place 
= 1 - EPS should take place 

IDUM1 

Integer 

1 

- 

Dummy calling argument 

IF 

Integer 

1 


Flag used to initialize integra- 
tion process 

= 1 - initialize integration 
parameters 

= 2 - do not initialize integra- 
tion parameters 

IFST 

Integer 

1 


Flag used to keep program from 
computing contraction ratio more 
than once. 

= 0 - compute contraction ratio 
= 1 - do not compute contraction 
ratio 

INPNS 

Real 

1 

lbf- 

sec/in 2 

Intearal of nozzle staanation 
pressure. 

ISKIP 

Integer 

1 

- 

Flag used in conjunction with the 
ICT2 flag. 

ISP 

Real 

1 

sec 

Specific impulse 

IT 

Real 

1 

lb-sec 

Total impulse 

J 

Integer 

1 

- 

Do loop index variable 

LLL 

Integer 

1 

- 

Do loop index variable 

LLLL 

Integer 

1 

- 

Do loop index variable 

MF 

Real 

1 

Ibm 

Total fuel consumption of pulse 

M0 

Real 

1 

lbm 

Total oxidizer consumption, of pulse 
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3.3.17.7 Internal Symbol Table (Continued) 


Variable 

Jm. 

Dimension 

Units 

Descri ption 

MR 

Real 

1 

- 

Mixture ratio. 

Ml 

Integer 

1 

- 

Subscript giving location of F 
parameter in the FILT2 array. 

M2 

Integer 

1 

- 

Subscript giving location PC 
parameter in FILT2 array. 

M3 

Integer 

1 

- 

Subscript giving location of PTF0 
parameter in FILT2 array. 

M4 

Integer 

1 

- 

Subscript giving location of PT00 
parameter in FILT2 array. 

M5 

Integer 

1 

- 

Subscript giving location of PDF0 
parameter in FILT2 array. 

M6 

Integer 

1 

- 

Subscript giving location of PD00 
parameter in FILT2 array. 

M7 

Integer 

1 

- 

Subscript giving location of TF0I 
parameter in FILT2 array. 

M8 

Integer 

1 

■ 

Subscript giving location of T00I 
parameter in FILT2 array. 

PC 

Real 

9 

' psia 

Chamber pressure. 

PCI 

Real 

1 

psia 

Equivalenced to 3rd position of 
TENG array for output purposes. 

■ Same meaning as PC. 

PDF0 

Real 

9 

psia 

Fuel orifice delta pressure. 

PD00 

Real 

9 

psia 

Oxidizer orifice delta pressure. 

PNS 

Real 

1 

psia 

Nozzle stagnation pressure. 

PTF0 

Real 

9 

psia 

Fuel orifice delta pressure. 

pt m 

Real 

9 

psia 

Oxidizer orifice delta pressure. 

RAT 

Real 

1 

— 

Contraction area ratio which is 
combustion chamber area to throat 
area. 

SAVF 

Real 

1 

Ibf 

Used to save the previous value 
of the I parameter for the 
integration process. 

SAVPNS 

Real 

1 

psia 

Used to save the previous value 
of the PNS parameter for the 
integration process. 
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3.3.17.7 

Internal 

Symbol .Table 

(Continued) 

Variabl e 

Jm. 

Dimension 

Units 

Description 

ST 

Real 

1 

sec 

Used to save the previous DT 
parameter for the integration 
process. 

STAR 

Real 

1 

ft/ sec 

Intermediate calculation of CSTAR. 

SWD0TF 

Real 

1 

Ibm/sec 

Used to save previous value of 
WD0TF parameter for integration 
process. 

SWD0T0 

Real 

1 

1 bm/ sec 

Used to save previous value of 
WD0T0 parameter for integration 
process. 

TENG 

Real 

100 


Array used to facilitate output 
process. Also used as intermedi- 
ate storage. 

TF0I 

Real 

9 

°F 

Fuel orifice inlet temperature. 

T00I 

Real 

9 

°F 

Oxidizer orifice inlet temperature. 

WD0TF 

Real 

1 

Ibm/sec 

Fuel flowrate. 

WD0T0 

Real 

1 

Ibm/sec 

Oxidizer flowrate. 

WD0TT 

Real 

1 

Ibm/sec 

Total flowrate. 

XF 

Real 

1 

- 

Fuel pressure ratio. 

X0 

Real 

1 

- 

Oxidizer pressure ratio. 

YF 

Real 

1 

- 

Expansion factor used for computing 
fuel flowrate. 

Y0 

Real 

1 

- 

Expansion factor used for computing 
oxidizer flowrate. 

ZH 

Real 

1 

- 

Compressibility factor for gaseous 
hydrogen. 

Z0X 

Real 

1 

- 

Compressibility factor for gaseous 
oxygen. 


3.3.17.8 Logic Diagram 

The logic of subprogram SWAGER is presented in Figure 3-17. 
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Figure 3-17 Subprogram SWAGER Logic Diagram 
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Figure 3-17 Subprogram SWAGER Logic Diagram (Continued) 


131 







3.3.18 SUBPROGRAM ZER0 

3.3.18.1 Introduction 

This subprogram is used to clear the FILT2 array. 

3.3.18.2 Method 

Due to the frequency with which the FILT2 array must be zeroed out, 
this subroutine has been created specifically for this purpose. 

3.3.18.3 Entry Points 

There is one entry point to this subprogram, ZER0. There are no 
calling arguments. 

3.3.18.4 Core Requirements 
37 cells 

3.3.18.5 Common Cross Reference 

Reference Section Common Variables Used 

3. 2. 4.1 Blank FILT2 

3.3.18.6 Internal Symbol Table 

Variable Type Dimension Units Description 

I Integer 1 - Row subscript of the FILT2 

array 

J Integer 1 - Column subscript of the 

FILT2 array 


3.3.18.7 Logic Diagram 


The logic of subprogram ZER0 is provided in Figure 3-18. 
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Figure 3-18 Subprogram ZER0 Logic Diagram 
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APPENDIX 1 


NOMENCLATURE 

Unless otherwise stated, card input value (CIV) adjacent to a variable indicates the 
user must input that variable. Numerical value indicates the internally set value 
of the variable. 

AE Nozzle exit area (sq in) (CIV) 

AT Throat area (sq in) (CIV) 

AC Chamber area, user's card input (sq in) (CIV) 

ATTC Area of nozzle throat corrected for thermal expansion 

BEGFIL Third file on SEL tape, =3 

CF1 1 Constant used to compute WD0T0 and WD0TF, - .1603 

CF2 Constant, used to compute Z0X, = .9905 

CF3 Constant, used to compute Z0X, = .0031 

CF4 Constant, used to compute Z0X, = 74 

CF Thrust coefficient, computed 

CFNSV Standard theoretical vacuum coefficient of thrust at EPS = 5 

CFSTD Standard thrust coefficient 

CFSTDV Standard thrust coefficient at vacuum 

CFSV Theoretical thrust coefficient at vacuum 

CSTAR Characteristic exhaust velocity, computed (ft/sec) 

CSTASD Standard CSTAR- 

CSTAT Site theoretical CSTAR at 30 psia nozzle stagnation pressure (ft/sec) 

CSTATS Standard theoretical CSTAR at 30 psia nozzle stagnation pressure (ft/sec) 

DCS TAR Change in CSTAR, not computed at present, = 0 (ft/sec) 

DH.0 Fuel orifice diameter, user's card input (in) (CIV) 

D00 Oxidizer orifice diameter, user's card input (in) optional (CIV) 

DPF Pressure differential from interface to combustion chamber for fuel (psia) (CIV) 

DPH Fuel upstream pipe diameter, user's card input (in) (CIV) 

DP0 Oxidizer upstream pipe diameter, user's card input (in) (CIV) 

Al-1 



APPENDIX 1 (Continued) 


DP0S 

ECFSTD 

ECFS 

EPS 

ETAC 

F 

FSTD 
F V 
G 

GAMMA 

IDUMP 

INPNS 

I0TAPE 

IPC 

IPL0T 

ISP 

ISPS 

K 

KF 

K0 

LSTPTS 

IT 

MF 

MICR0T 


Pressure differential from standard interface to calculated chamber pressure 
Standard thrust coefficient efficiency 
Site thrust coefficient efficiency 

Ratio of exit area to thermal corrected throat area of nozzle 
Site C-star efficiency 
Thrust, measured (Ibf) 

Standard thrust (lbf) 

Fire voltage, measured (counts) 

2 

Earth's gravitational acceleration (local), = 32.1302 (ft/sec ) 

Ratio of specific heats 

Dump flag, card input value = 0 for no dump, = 1 for dump (CIV) 

2 

Time integral of PNS, computed (lbf-sec/in ) 

Assignment for intermediate output tape, ~ 2 
Print control flag (CIV) 

Calcomp output tape (CIV) 

Specific impulse, computed (secs) 

Standard specific impulse (secs) 

Coefficient used for computing PNS from PC, = .9999: to .5531 
dependent on A^ to ratio and taken from a table 

Coefficient of discharge of fuel orifice, user's card input, (CIV) 

Coefficient of discharge oxidizer orifice, user's card input, (CIV) 

Number of points to be included in the integration scheme after the 
fire voltage goes below threshold value, - 50 

Total impulse, computed (lb-sec) 

Total fuel consumption of pulse, computed (lbm) 

Tape unit microfilm output of printed data (CIV) 
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APPENDIX (Continued) 


M0 

MR 

MRS 

MWH 

MW0 

MXFILE 

NDP 

NLINES 

NP 

PAB 

PC 

PCCI 

PCCIA 

PCE 

PCS 

PDF0 

PD0 

PD00 

PED 

PEDS 

PFI 

PFIC1 

PFIC2 

PFII 

PFTI 


Total oxidizer consumption of pulse, computed (lbm) 

Mixture ratio, computed 

Standard mixture ratio 

Molecular weight of hydrogen, (lb /mole) 

Molecular weight of oxygen, (lb/mole) 

Execution terminated when maximum number of consecutive end of 
file marks on SEL tape 

Number of the pulse on data tape to be dumped. 

Number of lines to be printed per page = 41 

Number of pulses to be processed for each run; = 1 if a pulse 
is to be dumped (CIV) 

Pressure ambient (psia) optional (CIV) 

Chamber pressure, measured (psia) 

Calculated chamber pressure at injector face (psia) 

Adjusted calculated chamber pressure at injector face (psia) 

PC Convergence criteria (psia) 

Standard chamber pressure (psia) 

Fuel orifice delta pressure, measured, (psia) 

Pressure differentail from interface to combustion chamber for oxidizer 
(psia) 

Oxidizer orifice delta pressure, measured (psia) 

Pressure of the fuel at interface (psia) 

Standard pressure of the fuel at interface (psia) 

Fuel injection pressure, measured (psia) 

Injector fuel cavity pressure #1, measured (psia) 

Injector fuel cavity pressure #2, measured (psia ) 

Fuel ignitor injection pressure, measured (psia) 

Fuel turbine inlet pressure, measured (psia) 
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APPENDIX 1 (Continued) 


PLTAPE 

PNS 

PNSS 

P0D 

P0DS 

P0I 

P0IC 

P0II 

P0TI 

PTF0 

PT00 

RAT 

RFD 

RFDS 

R0D 

R0DS 

RUNN0 

SS 

TCI 

TC2 

TC3 

TC4 

TC5 

TC6 

TFI 

TFD 

TFDS 

TF0I 


Tape assignment of TRWPLT tape, i.e. HEPCAT output tape. 

Nozzle stagnation pressure (psia) 

Standard nozzle stagnation pressure (psia) 

Pressure of the oxidizer at interface (psia) 

Standard pressure of oxidizer at interface (psia) 

Oxidizer injection pressure, measured (psia) 

Oxidizer injector cavity pressure, measured (psia) 

Oxidizer igniter injection pressure, measured (psia) 

Oxidizer"turbine inlet pressure, measured (psia) 

Fuel orifice total pressure, measured (psia) 

Oxidizer orifice total pressure, measured (psia) 
Contraction area ratio 

Density of the fuel at interface (lb/cu ft) 

Standard density of the fuel at interface (lb/cu ft) 
Density of the oxidizer at interface (lb/cu ft) 

Standard density of the oxidizer at interface (lb/cu ft) 

Run annotation, measured 

Spark signal, measured (counts) 

Thermocouple //l, measured (°F) 

Thermocouple #2, measured (°F) 

Thermocouple #3, measured (°F) 

Thermocouple #4, measured (°F) 

Thermocouple #5, measured (°F) 

Thermocouple #6, measured (°F) 

Fuel injection temperature, measured. (°E) 

Temperature of the fuel at interface (°F) 

Standard temperature of the fuel at interface (°F) 

Fuel orifice inlet temperature, measured, (°E) 
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APPENDIX (Continued) 


TFTI 

T0D 

T0DS 

T0I 

T00I 

T0TI 

UNIT 

WD0TF 

UD0TFS 

WD0T0 

WD0T0S 

WD0TT 

WD0TTS 

WFT 

W0T 

YF 

Y0 

ZF 

ZH 

Z0X 


Fuel turbine inlet temperature, measured, (°F) 

Temperature o£ the oxidizer at interface (°F) 

Standard temperature of the oxidizer at interface (°F) 

Oxidizer injection temperature, measured, (°F) 

Oxidizer orifice inlet temperature, (° £■) 

Oxidizer turbine inlet temperature, measured, (°F) 

Tape assignment of SEL tape, (°e) 

Fuel flowrate, computed, (lbm/sec) 

Adjusted fuel flowrate to standard values (lb /sec) 

Oxidizer flowrate, computed, (lbm/sec) 

Adjusted oxidizer flowrate to standard values (Ib/sec) 

Total flowrate, computed, (lbm/sec) 

Total adjusted propellant flowrate to standard values (lb/sec) 

Fuel flowrate, turbine, measured, (c. f.m, ) 

Oxidizer flowrate, turbine, measured, (c. f.m. ) 

Expansion factor used for computing fuel flowrate WD0TF, computed 
Expansion factor used for computing oxidizer flowrate WD0T0, computed 
Fuel gas compressibility factor, computed 
Fuel gas compressibility factor, computed 
Oxidizer gas compressibility factor, computed 
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APPENDIX 2 


TRW Plot Packaqe 

This appendix is a condensed version of HCC Report No. 3141.20-10 dated 
May 1969 and is included as a user’s guide for the plotting package of the 
HD011C program. There are four sections which describe the following: (1) Data 
tape format* (2) Data deck description, (3} control card description, and (4) 
Listings of data decks for specific jobs. 

Section I: DATA TAPE F0RMAT 

The data tape generated by HD011C for use by the plotting program, TRWPLT, 
has three record format types. A Type One record contains time and channel 
data. A Type Two record contains time and engineering data. A Type Three 
record contains time and engine performance standardization data. The order 
of data in each record type is as follows: 

Type One Record - 

Word 1 - record identifier. 

Word 2 - number of data words in record, =52 

Word 3 - computer time 

Word 4 - pulse reference time 

Words 5-54 - data from each channel 

Type Two Record - 

Word 1 - record identifier 

Word 2 - number of data words in record, =23 

Word 3 - computer time 

Word 4 - pulse reference time 

Words 5-25 - engineering data 

Type Three Record - 

Word 1 - record identifier 

Word 2 - number of data words in record, =42 

Word 3 - computer time 

Word 4 - pulse reference time 

Words 5-44 - engine performance standardization data 

All the data from the SEL 600 tape is put on the plot tape as well as 
all the data calculated in the engineering and engine performance standardiza- 
tion routines. This is pointed out to the user because each point is not 
printed by the HD011C program. 
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Section II: DATA DECK DESCRIPTION 

For one plot to be made, four cards are required. A description of the 
four required cards is followed by a description of some of the options 
available to the user. 

1.‘ PL0T - Specifies the variables to be plotted {must be input for 
each plot) . 

The variables to be plotted may be specified either by BCD symbols 
or by the variable in the record. The BCD symbols correspond to the 
alphanumeric identification on the channel cards for the Type One 
record. The alphanumeric names of the variables in the Type Two record 
are WD0T0, PNS, PC, F, ISP, WD0TF, CSTAR, CF, MR, Z0X, WD0TT, DCSTAR, 
YF, Y0, ZF, IT, INPNS, M0, MF, GAMMA0 , GAMMAF. The alphanumeric names 
of the variables in the Type Three record are F, FSTD, CF, CFSTD, ISP, 
ISPS, CFSV, CFNSV, WD0TT, WD0TTS , ECFS, ECFSTD, WD0T0, WD0T0S, T0D, 
T0DS, WD0TF, WD0TFS, TFD, TFDS , MR, MRS, P0D, P0DS , PC, PCS, PFD, PFDS, 
CSTAR, CSTASD, AE, PAB, CSTAT, CSTATS, AT, ATTC, ETAC, ETACS, PCCI, 
PCCIA. In addition, the two times used by the program are referenced 
by the BCD symbols of TC for computer time and TR for pulse reference 
time. 

A. Specification by BCD symbols: 

PL0T = XSYM, IRECX, YSYM-, , IRECY-, , YSYM., IRECY. YSYM , 

IRECY . ENDLST 1 ! L L n 

n 

where 

XSYM denotes the BCD symbol for the abscissa variable, 

IRECX denotes the record type in which .XSYM will be found, 

YSYM. denotes the BCD symbol for the i ordinate variable 
(i =1, n where max n = 10), 

IRECY denotes the record type in which YSYM, will be found, 

ENDLST terminates the list of symbols and record types. 

The resultant graph will consist of n traces, XSYM vs. YSYM-,, 

XSYM vs. YSYM 2 , ..., XSYM vs. YSYM n « 1 

B. Specification by location of the variable in the record: Note 
that the physical location is determined from the first data 
word in the record, not from the first physical word in the 
record. 
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PL0T = L0CX, IRECX, L0CY ? IRECY-, , . .., L0CY n , IRECY- ENDLST 
where: 

t h 

L0CX specifies L0CX lM data word in the record as the abscissa 
variable, 

IRECX specifics the record type in which the abscissa variable 
will be found, .. 

L0CYj specifies the L0CY-? n data word in the record. as the v 
ordinate variable (i = 1, n where max n-= 10), 

IRECY.j specifies the record type in which the data for the i tn 
ordinate variable will be found, 

ENDLST terminates the list of locations and record types. 


The resultant graph will consist of n traces, DATA^ CX vs. DATA 

DAT %CX vs * - DATA L0CY 2 5 ’ 1 DATA L0CX VS * DATA L0CY 

where the symbol DATA denotes the HD011C processed output data 

words in each record. 


L0CY ] 


3 


Examples : 

PL0T = X, 1, Y, 3, Z, 4, ENDLST 

Two traces will be plotted on the graph, X vs Y and X vx Z 

where the data for X is in record type 1, 

where the data for Y is in record type 3, and 

where the data for Z is in record type 4. 

PL0T = 4, 2, 9, 7, 1, 2, 4, 3, ENDLST 
Three traces will be plotted on the graph, 

DATA^ (Record type 2) vs DATAg (Record type 7), 

DATA^ (Record type 2) vs DATA-j (Record type 2), 

DATA^ (Record type 2) vs DATA^ (Record type 3). 

2. ENDPLT - This card marks the termination of the inputs for one plot. 

3. ENDFIL - The appearance of this card marks the termination of the 
inputs for one file and causes that file of data to be plotted. 

4. ENDRUN - This card marks the termination of all inputs, causes a 

wrap-up to occur and control to exit the program. 

NOTE: The. symbols ENDPLT, ENDFIL, and ENDRUN must appear 

on a separate card from other inputs. To creat more 
than one plot per file, cards 1 and 2 would be repeated 
for as many plots as desired. 
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To create labels on the plots, the next three cards can be 
used. It should be noted that once these inputs are defined by 
the user they will be used on all subsequent plots until changed 
or deleted. All are 66 characters in length. Each symbol must 
be followed by = ID = which indicates any combination of characters 
may follow and is legal. 

5. TITLE - Graph title; printed at the top of the graph. 

EX: TITLE = ID » USER'S SAMPLE GRAPH TITLE 

6. XLABEL - X-axis title; printed below the independent variable axis. 

EX: XLABEL = ID = USER'S SAMPLE X-AXIS TITLE 

7. YLABEL - Y-axis title; printed to the left of the dependent variable axis. 

EX: YLABEL = ID = USER'S SAMPLE Y-AXIS TITLE 

TRWPLT automatically scales plots and optimizes the limits to insure 
all points are included. Provision is made for the user to input his 
own scales instead of using TRWPLT automatic logic. If user scale 
inputs are used they will continue to be utilized for each plot until 
changed in some manner by the addition of the following cards. 

8. ISCALX - abscissa scale selector 

= 0 TRWPLT will optimize scaling 

= 1 Input limits will be used 

NOTE: If set = 1 in plot A, and set = 0 in plot B, the 

scales from plot A will be used in plot B also. 


9. 

I SCALY 

- ordinate scale selector 
= 0 TRWPLT will do scaling 
= 1 input limits will be used 




NOTE: The note about ISCALX also applies 

to ISCALY. 

10. 

XL0 

- lower limit for the X-axis 


11. 

XHI 

- upper limit for the X-axis 


12. 

YL0 

- lower limit for the Y-axis 


13. 

YHI 

- upper limit for the Y-axis 




NOTE: If both XL0 and XHI are zero, then 

the limits will 


be set equal to the minimum and the maximum of. the 
abscissa data points. If both YL0 and YHI are zero, 
then the limits will be set equal to the minimum snf 
maximum of the ordinate data points. If conjunction 
with the note on card 8, the only way to return to 
automatic scaling is to set both limits, XL0 and XHI, 
YL0 and YHI to zero. 
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The next two options are very useful in multi -file and multi-, 
reel plotting. 

14. REPEAT - The card causes the next file of the data tape (or a new 

data tape) to be read and processed with the^-same inputs 
as in the preceding file. 

NOTE: The symbol REPEAT must appear on a separate card 

from other inputs. No new inputs may -be used with 
this option except for the next card. 

15. KUNIT - The number of the tape unit on which the input data tape 

is mounted (initialized to 8). Units 2, 4, 12, and 13 are 
used for working storage and cannot be used. 

This description does not cover all the inputs to TRWPLT 
although, those described above will allow the user a fair degree of 
sophistication for plotting. 

Section III: DESCRIPTION OF CONTROL CARDS 

Because of the possibility of a double execution of HD011C and TRWPLT, 
control cards for both programs will be discussed. 

1. Control cards for HD011C 
Card Column 

12345678... 61-74 

A. V P A R U N A FI, F2, F3, F4, F5, F6, F7, F8, F9, FI 0 NAME . 


B. 

V 

ASG 

X = aaaaa 

C. 

V 

ASG 

g = geese 

D. 

V 

XQT 

CUR 

E. 


TRW 

X 

F. 


IN 

X 

G . 


TRW 

X 

H. 

V 

XQT 

HD011C 

I. 

- 

HD011C DATA DECK 

J. 

V 

E0F 



Description: 

A. The fields for card A are as follows: 

P - Priority indicator, either A, P, or Z. A priority code must 
be present. 


A2-5 



a) “A" - Special priority to be used only with approval 
of the MSC operations monitor of shift supervisor. 

b) "P" - Standard priority to be used for EXPRESS jobs 
and for those groups that have been authorized priority 
for specific jobs. 

c) "Z" - To be used for all nominal work. 

FI - Six character badge number 

F2 - Division code 

F3 - Building, box number 

F4 - Project number (1-6 characters) 

F5 - Program number (-1-6 characters) 

F6 - Type run (1 character) 

F7 - Estimated time for run (min) 

F8 - Estimated hundreds of pages output for run 
F9 - 'Print channel 
F10 - Punch channel 
Name - Programmer's name 

Fields FI - F6 are always required. Fields F7 - F10 are optional. 
System will use 3 minutes and 100 pages for F7 and F8, respecti vely , 
if not input. 

B. aaaaa is the tape number of the program tape 

C. is the tape number of the data tape 

D. Execute the complex utility routine to manipulate tapes 

E. Rewind tape X to load point 

F. Read program into PCF area 

G. Rewind tape X to load point 

H. Execute the program 

I. Data deck 

J. End of file card 

2. Control card for microfilm output 

If any type of microfilm output is desired, either from HD011C or 
TRWPLT, the following card must be put in the deck after card A. 

Card Column 
12 3 4 
V PLT 
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3. Control cards for HD011C and TRWPLT 
Card Column 

12345678... 61-74 

A. V P RUN FI , F2 , . . . 5 FI 0 NAME 

B. V PLT 

C. V ASG X = aaaaa 

D. 7 ASG Y = TRWPLT 

E. V ASG F 

F. V ASG G = 

G. V XQT CUR 

H. TRW X 

I. IN X 

J . TRW X 

K. V XQT HD011C 

L. HD011C DATA DECK 

M. V XQT CUR 

N. ERS 

O. TRW Y 

P. IN Y 

Q. TRW Y 

R. V XQT TRWPLT 

S. PL0T DATA DECK 

T. V E0F 

Description: 

A,B,C. Discussed above 

D. Identifier to tell operator to hang TRWPLT tape on Unit Y 

E. Fastrand file that will contain the plot data for TRWPLT 
F-M. Discussed above 


N. 

Clear the PCF area 


0 . 

Rewind tape Y to 

the 

load point 

P. 

Read TRWPLT into 

PCF 

area 

Q. 

Rewind tape Y to 

load point 

R. 

Execute TRWPLT 



S. 

TRWPLT data deck 



T. 

Discussed above 
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If the user wants to save the plot data on a tape and plot it at 
a later time, the following change should be made. 

a) Remove card B, D 

b) Change card E to 
VS ASG F=SAVE 

c) Remove cards M-S 

4. Control cards for TRWPLT 
Card Columns 

12345678... 61-74 

A. V P RUN FI, .... F10 NAME 

B. V PLT 

C. V ASG Y = TRWPLT 

D. V ASG F = aaaaa 

E. V XQT CUR 

F. TRW Y 

G. IN Y 

H. TRW Y 

I. V XQT TRWPLT 

J. TRWPLT DATA DECK 

K. V E0F 

All cards have been explained previously except D. D contains the 
number of the data tape to be plotted. 

Section IV. LISTINGS OF DATA DECKS FOR SPECIFIC JOBS 

The listings in this section represent the deck setups necessary to carry 
out a specific function. The header on each deck gives the purpose of each 
deck. 


It should be noted that the user has the ability to use this plot 
package to cross plot, i.e., plot variable against variable, not just variable 
against time. It is also possible to plot one record type against another 
record type. The last listing gives an example of this cross plotting capability. 
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******* DECK SETUP FOR EXECUTION OF HD011C PROGRAM ONLY ******* 


VZ RUN T59368, FM7, 12, 1135N,266310,P,3, 1 PRINGLE, R.W. 


V 

ASG 

G=4892 1 





V 

ASG 

X= 238 56 





V 

XQT 

CUR 






TRW 

X 






IN 

X 






TRW 

X 





V 

XOT H DO 1 1C 





01 

F 

1 

0.04 



LBF 

02 

PC 

1 

0.1 



PSIA 

03 

FV 

1 

1.0 ■ 



CNTS 

04 

PFI 

1 

0.1 



PSIA 

05 

POI 

1 

0.1 



PSIA 

06 

PFII 

1 

0.1 



PSIA 

07 

POII 

1 

0.1 



PSIA 

08 

PTFO 

1 

0.1 



PSIA 

09 

PTOO 

1 

0.1 



PSIA 

10 

PDFO 

1 

0.01 



PSID 

11 

PDOO 

1 

0.01 



PSID 

12 

PFIC1 

1 

0.1 



PSIA 

13 

POIC 

1 

0.1 



PSIA 

14 

PFIC2 

1 

0. 1 



PSIA 

15 

SS 

1 

1.0 



CNTS 

16 

PFTI 

1 

0.1 



PSIA 

17 

POTI 

1 

0.1 



PSIA 

18 

TFI 

1 


118 

218 

DEGF 

19 

TOI 

1 


118 

218 

DEGF 

20 

TCI 

1 


120 

220 

DEGF 

21 

TC2 

1 


120 

220 

DEGF 

22 

TC 3 

i 


120 

220 

DEGF 

23 

TC4 

1 


120 

220 

DEGF 

24 

TC5 

1 


120 

220 

DEGF 

25 

TC6 

1 


120 

220 

DEGF 

26 







27 







28 







29 
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31 

32 TFOI 

1 


118 

218 DEGF 




33 T 00 1 

1 


118 

218 DEGF 




34 TFTI 

1 


118 

218 DEGF 




35 TOT I 

1 


118 

218 DEGF 




36 

37 

38 

39 

40 WFT 

1 

0. 

02 

CFM 




41 WOT 

42 

43 

44 

45 

46 

47 

48 

49 

1 

0. 

01 

CFM 




50 RUNNO 
118 2 

1 

1. 






0.0 

218 20 

o 

• 

o 

5000. 

5000. 





0. 

-302. 

662. 

0. 

725. 

30. 

735. 

35. 

746. 

40. 

757. 

45. 

768. 

50. 

779. 

55. 

790. 

60. 

801. 

65. 

812. 

70. 

823. 

75. 

835. 

80. 

846. 

85. 

858. 

90. 

869. 

95. 

881. 

100. 

892. 

105. 

904. 

110. 

4095. 

1137. 

120 2 
0.0 

220 20 . 

o 

# 

o 

5000. 

5000. 





0. 

-302. 

768. 

50. 

881. 

100. 

1000. 

150. 

1126. 

200. 

1257. 

250. 

1394. 

300. 

1464. 

325. 

1535. 

350. 

1608. 

375. 

1681. 

400. 

1756. 

425. 

1832. 

450. 

1909. 

475. 

1986. 

500. 

2145. 

550. 

2306. 

600. 

2471. 

650. 

2639. 

700. 

4095. 

1137. 

1.9273 


0.655 

0.46 


1.0 

0.624 


0.42 


1.0 

7.9173 






0 00 1 1 10 
CASEND 
7 EOF 



A2-11 


******* deck SETUP FOR EXECUTION OF HOOl 1C PROGRAM 

VZ RUN T59368,FM7, 12, 1 13 5N, 266310 , P , 3, 1 

V PLT 

V ASG G=4892 1 

V ASG X-23856 
XQT CUR 
TRW X 

IN X 
TRW X 


V XOT HD011C 


01 

F 

l 

0.04 



LBF 

02 

PC 

1 

0.1 



PSIA 

03 

FV 

1 

1.0 



CNTS 

04 

PFI 

1 

0.1 



PSIA 

05 

POI 

1 

0.1 



PSIA 

06 

PFII 

1 

0. 1 



PSIA 

07 

POII 

1 

0.1 



PSIA 

08 

PTFO 

1 

0.1 



PSIA 

09 

PTOO 

1 

0.1 



PSIA 

10 

PDFO 

1 

0.01 



PSIO 

11 

PDOO 

1 

0.01 



PSIO 

12 

PFIC1 

1 

0.1 



PSIA 

13 

POIC 

1 

0.1 



PSIA 

14 

PFIC2 

1 

o.i 



PSIA 

15 

SS 

1 ' 

1.0 



CNTS 

16 

PFTI 

1 

0.1 



PSIA 

17 

POT I 

1 

0.1 



PSIA 

18 

TFI 

1 


118 

218 

DEGF 

19 

TOI 

1 


118 

218 

DEGF 

20 

TCI 

1 


120 

220 

DEGF 

21 

TC2 

1 


120 

220 

DEGF 

22 

TC3 

1 


120 

220 

DEGF 

23 

TC4 

1 


120 

220 

DEGF 

24 

TC5 

1 


120 

220 

DEGF 

25 

TC6 

1 


120 

220 

DEGF 

26 







27 







28 








WITH MICROFILM OUTPUT ******* 


PRINGLE, R.W. 
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29 

30 

31 

32 TFOI 

1 


118 

218 DEGF 




33 T OOI 

1 


118 

218 DEGF 




34 TFT I 

1 


118 

218 DEGF 




35 TOT I 

1 


118 

218 DEGF 




36 

37 

38 

39 

40 WFT 

1 

0 . 

02 

CFM 




41 WOT 

42 

43 

44 

1 

0 . 

01 

CFM 




45 

46 

47 

48 

49 

50 RUNNO 
118 2 

1 

1 . 






0.0 

218 20 

0.0 

5000. 

5000. 





0 . 

-302. 

662. 

0 . 

725. 

30. 

735. 

35. 

746. 

40. 

757. 

45. 

768. 

50. 

779. 

55. 

790. 

60. 

801. 

65. 

812. 

70. 

823. 

75. 

835. 

80 . 

846. 

85. 

858. 

90. 

869. 

95. 

881. 

100. 

892. 

105. 

904. 

110. 

4095. 

1137. 

120 2 
0.0 

220 20 

0.0 

5000. 

5000. 





0. 

-302. 

768. 

50. 

881. 

100. 

1000. 

150. 

1126. 

200. 

1257. 

250. 

1394. 

300.- 

1464. 

325. 

1535. 

350. 

1608. 

375. 

1681. 

400. 

1756. 

425. 

1832. 

450. 

1909. 

475. 

1986. 

500. 

2145. 

550. 

2306. 

600. 

2471. 

650. 

2639. 

700. 

4095. 

1137. 

1.9273 


0.655 

0.46 


1.0 

0.624 


0.42 
0 00 1 1 

1 1 

1.0 

7.9173 
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CASENO 
V EOF 



n-zv 


******* deck SETUP FDR EXECUTION OF HD 01 IC SAVING A DATA TAPE FOR TRWPLT ******* 


vz 

RUN T 59368, FM7, 

12, 1135N, 266310 

,P» 3, 1 



vS 

ASG 

F=SAVE 





V 

ASG 

G=48921 





V 

ASG 

X=2 3856 





V 

XQT 

CUR 






TRW 

X 






IN 

X 






TRW 

X 





V 

XQT 1 

H DO 1 1C 





0 1 

F 

1 

0.04 



LBF 

02 

PC 

l 

0.1 



PSI A 

03 

FV 

1 

1.0 



CNTS 

04 

PFI 

1 

0. 1 



PSIA 

05 

POI 

1 

0.1 



PSIA 

06 

PFI I 

1 

0. 1 



PSIA 

07 

POII 

1 

0.1 



PSIA 

08 

PTFO 

1 

0.1 



PSIA 

09 

PTOO 

1 

0.1 



PSIA 

10 

PDFO 

1 

0.01 



PSID 

11 

PDOO 

1 

0.01 



PSID 

12 

PFIC1 1 

0.1 



PSIA 

13 

POIC 

l 

0.1 



PSIA 

14 

PFIC2 1 

0.1 



PSIA 

15 

SS 

1 

1.0 



CNTS 

16 

PFTI 

1 

0.1 



PSIA 

17 

POT I 

1 

0.1 



PSIA 

18 

TFI 

1 


118 

218 

DEGF 

19 

TOI 

1 


118 

218 

DEGF 

20 

TCI 

1 


120 

220 

DEGF 

21 

TC2 

1 


120 

220 

DEGF 

22 

TC3 

l 


120 

220 

DEGF 

23 

TC4 

1 


120 

220 

DEGF 

24 

TC5 

1 


120 

220 

DEGF 

25 

TC6 

1 


120 

220 

DEGF 


26 

27 

28 


PRINGLE, R.W. 
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29 

30 

31 

32 T FOX 

1 


118 

218 DEGF 




33 TOOI 

1 


118 

218 DEGF 




34 TFTI 

1 


118 

218 DEGF 




35 TOTI 

36 

37 

38 

39 

1 


118 

218 DEGF 




40 W FT 

1 

0 . 

02 

CFM 




41 WOT 

42 

43 

44 

1 

0 . 

01 

CFM 




45 

46 

47 

48 

49 

50 RUNNO 
118 2 

1 

1 . 






0-0 

218 20 

0.0 

5000. 

5000. 





0. 

-302. 

662. 

0 . 

725. 

30. 

735. 

35. 

746. 

40. 

757. 

45. 

768. 

50. 

779. 

55. 

790. 

60. 

801. 

65. 

812. 

70. 

823. 

75. 

835. 

80. 

846. 

85. 

858. 

90. 

869. 

95. 

881. 

100. 

892. 

105. 

904. 

110. 

4095. 

1137. 

120 2 
0.0 

220 20 

0.0 

5000. 

5000. 





0 . 

-302. 

768. 

50. 

881. 

100. 

1000. 

150. 

1126. 

200. 

1257. 

250. 

1394. 

300. 

1464. 

325. 

1535. 

350. 

1608. 

375. 

1681. 

400. 

1756. 

425. 

1832. 

450. 

1909. 

475. 

1986. 

500. 

2145. 

550. 

2306. 

600. 

2471. 

650. 

2639. 

700. 

4095. 

1137. 

1.9273 


0.655 

0.46 


1.0 

0.624 


0.42 

0 00 1 1 

1 0 

1.0 

7.9173 







CASEND 
•V EOF 



LT-ZV 


******* DECK SETUP FOR DOUBLE EXECUTION OF HD01LC AND TRWPLT ******* 


VZ RUN T59368, FM7, 12» 1 135N , 2 6631 0 ,P » 3 , 1 PRINGLE, R.W. 

V PLT 


V ASG F 


V 

ASG 

G=4892 1 





V 

ASG 

X=23856 





V 

ASG 

Y=TRWPLT 





V 

XQT 

CUR 






TRW 

X 






IN 

X 






TRW 

X 





V 

XQT HD011C 





01 

F 

l 

0.04 



LBF 

02 

PC 

1 

0.1 



PSIA 

03 

FV 

1 

1.0 



CNTS 

04 

PFI 

1 

0 . 1 



PSIA 

05 

POI 

1 

0.1 



PSIA 

06 

PFII 

1 

0.1 



PSIA 

07 

POII 

1 

0.1 



PSIA 

08 

PTFO 

1 

0.1 



PSIA 

09 

PTOO 

1 

0.1 



PSIA 

10 

PDFO 

1 

0.01 



PSID 

11 

PDOO 

1 

0.01 



PSID 

12 

PFICI 

1 

0.1 



PSIA 

13 

POIC 

1 

0 . 1 



PSIA 

14 

PFIC2 

1 

0. 1 



PSIA 

15 

SS 

1 

1.0 



CNTS 

16 

PFT I 

1 

0.1 



PSIA 

17 

POT I 

1 

0.1 



PSIA 

18 

TFI 

1 


118 

218 

DEGF 

19 

TOI 

1 


118 

218 

DEGF 

20 

TCI 

1 


120 

220 

DEGF 

21 

TC2 

1 


120 

220 

DEGF 

22 

TC3 

1 


120 

220 

DEGF 

23 

TC4 

1 


120 

220 

DEGF 

24 

TC5 

1 


120 

220 

DEGF 

25 

TC6 

1 


120 

220 

DEGF 

26 
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27 

28 

29 

30 

31 


32 TF0I 

1 



118 

218 DEGF 




33 TOOI 

1 



118 

218 DEGF 




34 TFT I 

1 



118 

218 DEGF 




35 TOTI 

36 

37 

38 

1 



118 

218 DEGF 




39 

40 WFT 

1 

0.02 


* 

. CFM 




41 WOT 

42 

43 

44 

45 

46 

47 

48 

49 

1 

0.01 



CFM 




50 RUNNO 
118 2 

1 

1. 







0.0 

218 20 

o 

* 

o 

5000. 

5000. 






0. 

-302. 

662. 

0. 


725. 

30. 

735. 

35. 

746. 

40. 

757. 

45. 


768. 

50. 

. 779. 

55. 

790. 

60. 

801. 

65. 


812. 

70. 

823. 

75. 

835. 

80. 

846. 

85. 


858. 

90. 

869. 

95. 

881. 

100. 

892. 

105. 


904. 

110. 

4095. 

1137. 

120 2 
0.0 

220 20 

o 

. 

o 

5000. 

5000. 






0. 

-302. 

768. 

50. 


881. 

100. 

1000. 

150. 

1126. 

200. 

1257. 

250. 


1394. 

300. 

1464. 

325. 

1535. 

350. 

1608. 

375. 


1681. 

400. 

1756. 

425. 

1832. 

450. 

1909. 

475. 


1986. 

500. 

2145. 

550. 

2306. 

600. 

2471. 

650. 


2639. 

700. 

4095. 

1 137. 

1.9273 

- 

0.655 

0.46 


1.0 

0.624 
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1.0 


7.9173 


0.42 

C 00 1 1 10 

CASENO 

Y XQT CUR 
ERS 

TRW Y 
IN Y 
TRW Y 

Y XQT TRWPLT 
I SCALX=1 
X L 0= 0 » 

XHI= 10. 

ISCALY = 1 
YL0=0 . 

YHI= 100 • 

XLA8EL=ID= COMPUTER TIME SEC 
YLABEL=ID= THRUST LBS 

T ITLE= ID= THRUST (LBS) 

PL0T=TC»1» Ff 1, ENDLST 

ENDPLT 

YLO=0. 

YHI= 100 • 

Y LABEL= ID= CHAMBER PRESSURE PSIA 
TITLE=ID= CHAMBER PRESSURE (PSIA) 

PLOT=TC, 1, PC, 1 ♦ ENDLST 

ENDPLT 

YL0=0* 

YH I = 200 . 

YLABEL=ID= FUEL INJECTION PRESSURE PSIA 
TITLE=ID= FUEL INJECTION PRESSURE (PSIA) 

PLOT =TC» 1 ♦ PFIt 1» ENDLST 
ENDPLT 

Y L 0= 0 • 

YH 1 = 200. 

YLABEL=ID= OXIDIZER INJECTION PRESSURE PSIA 
T ITL E= ID= OXIDIZER INJECTION PRESSURE (PSIA) 

PLOT = TC» 1 * PO I » 1, ENDLST 
ENDPLT 

Y L0=0 . 

Y H 1 = 200. 

YLABEL=ID= FUEL IGNITOR INJECTION PRESSURE PSIA 
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T I TL E= ID= FUEL IGNITOR INJECTION PRESSURE ( P SI A » 
PLOT-TC»ItPFIItltENOLST 
ENDPLT 
Y L 0= 0 . 


YH 1 = 200 . 
YLABEL=ID= OXI 
TITLE=ID= OX ID 
PLOT =TC» 1 » PO 1 1 
ENDPLT 
ENDFIL 
ENDRUN 
V EOF 


DIZER IGNITOR INJECTION PRESSURE 
I ZER IGNITOR INJECTION PRESSURE 
♦ 1, ENDLST 


PSI A 
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******* deck SETUP FOR EXECUTION OF TRWPLT PROGRAM ONLY ******* 


VZ RUN T59368,FM7, 12, 1135N, 266310, P, 3,1 PRINGLE, R.W. 

V PLT 

V AS G F= 22222 

V ASG Y=TRWPLT 

V XQT CUR 
TRW Y 
IN Y 
TRW Y 

V XQT TRWPLT 
ISCALX=1 

X L 0= 0 . 0 
X H 1= 10 .0 
I SCALY= 1 
YLO=0. 

YHI=200. 

X LABEL^I D= COMPUTER TIME SEC 

YLABEL=ID= FUEL ORFICE TOTAL PRESSURE PSIA 

T ITLE=ID= FUEL ORFICE TOTAL PRESSURE (PSIA) 

PLOT=TC, 1, PTFO, 1, ENDLST 

ENOPLT 

YLO=0. 

YHI=200. 

YLABEL=ID= OXIDIZER ORFICE TOTAL PRESSURE PSIA 
T I T L E= I D= OXIDIZER ORFICE TOTAL PRESSURE (PSIA) 

PLOT=TC, 1, PTOO, 1, ENDLST 
ENDPLT 

V L 0= 0 . 

YHI=50. 

YLABEL=ID= FUEL ORFICE DELTA P PSIA 
T I TL E= ID= FUEL ORFICE DELTA P (PSIA) 

PLOT=TC, 1« PDFO.l, ENDLST 

ENDPLT 

YLO=0 • 

YH 1 = 30 • 

YLABEL=ID== OXIDIZER ORFICE DELTA P PSIA 
T ITLE= ID= OXIDIZER ORFICE DELTA P (PSIA) 

PLOT=TC, 1 » PDOO, 1, ENDLST 
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ENDPLT 

Y L0= 0 • 

YHI = 200. 

YLABEL=ID= INJECTOR FUEL CAVITY PRESSURE NO. 1 PSIA 
T ITLE= 10= INJECTOR FUEL CAVITY PRESSURE NO. 1 (PSIA) 
PLOT = TC» ltPFIClt I* ENDLST 
ENDPLT 

Y L 0= 0 • 

YHI =200. 

YL ABEL= I D= INJECTOR OXIDIZER CAVITY PRESSURE PSIA 
T I TL E= ID= INJECTOR OXIDIZER CAVITY PRESSURE (PSIA) 
PL0T=TC.1,P0IC,1, ENDLST 
ENDPLT 

Y L 0= 0 . 

YH I = 200 . 

YLABEL=ID= INJECTOR FUEL CAVITY PRESSURE NO. 2 PSIA 

T ITLE= ID= INJECTOR FUEL CAVITY PRESSURE NO. 2 (PSIA) 

PLOT = TC» 1»PFIC2»1» ENDLST 

ENDPLT 

YLO=0. 

YH 1= 200. 

YLABEL=ID= PRESSURE FUEL TURBINE INLET PSIA 
T I T L E= I D= PRESSURE FUEL TURBINE INLET (PSIA) 

PLOT=TC» 1* PFTI« 1« ENOLST 

ENDPLT 

YL0=0 • 

YHI=200. 

YLABEL=ID= PRESSURE OXIDIZER TURBINE INLET PSIA 
T I TL E= ID= PRESSURE OXIDIZER TURBINE INLET (PSIA) 

PLOT =TCt I, POT I, 1, ENDLST 

ENDPLT 

YLO=20. 

YHl=100. 

YLABEL= ID= FUEL INJECTION TEMPERATURE DEG F 
TITLE=ID= FUEL INJECTION TEMPERATURE (DEG F) 

PLOT =T Cf l*TFIt I, ENDLST 

ENDPLT 

YL0=20. 

YH 1= 100 • 

YLABEL=ID= OXIDIZER INJECTION TEMPERATURE DEG F 
T ITLE= ID= OXIDIZER INJECTION TEMPERATURE (DEG F) 



• A2-23 


PLOT=TC, 1 » TO I » 1, ENDLST 

ENDPLT 

YLO= 20. 

YH 1=500 • 

YLABEL=ID= THERMO COUPLE 1 DEG F 

T I T L E= I D= THERMO COUPLE 1 (DEG F) 

PLOT =TCt 1« TClt It ENDLST 

ENDPLT 

YLO=20. 

YHI=500 • 

Y LABEL= ID= THERMO COUPLE 2 DEG F 
T ITLE= ID= THERMO COUPLE 2 (DEG F) 
PLOT = TC» 1 »TC2» 1» ENDLST 
ENDPLT 
YLO=20 • 

YH 1=500 • 

Y LABEL=ID= THERMO COUPLE 3 DEG F 
TITLE=ID= THERMO COUPLE 3 (DEG F ) 
PLOT =TC» 1 » TC3» 1* ENDLST 
ENDPLT 
YLO=20 . 

YH 1=500 • 

YLABEL=ID= THERMO COUPLE 4 DEG F 

T ITLE=ID= THERMO COUPLE 4 (DEG F) 

PLOT = TC» 1 »TC4» 1, ENDLST 

ENDPLT 

YL0=20. 

YHI=500 • 

YLABEL=ID= THERMO COUPLE 5 DEG F 
T ITLE=ID= THERMO COUPLE 5 (DEG F) 
PLOT=TC» 1 » TC5* 1, ENDLST 
ENDPLT 
ENDFIL 
ENDRUN 
EOF 
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******* DECK SETUP FOR EXECUTION OF TRWPLT WITH MULTIPLE INPUT TAPES ******* 


VZ RUN T59368, FM7, 12, 1135N,266310,P» 3, 1 PRINGLE, R.W. 

V PLT 

V AS G F= 22222 

V ASG G=33333 

V ASG H= 44444 

V ASG Y=TRWPLT 

V XQT CUR 

TRW Y 
IN Y 
TRW Y 

V XQT TRWPLT 

ISCALX=1 
XLO=0.0 

XHI = 10.0 
I SCALY=1 
YLO=20. 

YHI=500. 

X LABEL=I D= COMPUTER TIME SEC 
YLABEL=ID= THERMO COUPLE 6 DEG F 
T ITLE= ID= THERMO COUPLE 6 (DEG F) 

PLOT =TC»1»TC6» l.ENOLST 

ENDPLT 

YLO=480. 

YH 1=560. 

YLABEL=ID= FUEL ORFICE IN TEMPERATURE DEG R 
T I T L E= I D= FUEL ORFICE IN TEMPERATURE (DEG Rl 
PLOT=TC» ltTFOI, 1, ENDLST 
ENDPLT 
YLO=480 • 

YHI=560. 

Y LABEL= ID= OXIOIZE ORFICE IN TEMPERATURE DEG R 
TITLE=ID= OXIDIZER ORFICE IN TEMPERATURE (DEG R) 

PLQT=TC, 1,T00I * It ENDLST 

ENDPLT 

YLO=480. 

YH 1= 560. 

YLABEL=ID= TEMPERATURE FUEL TURBINE INLET DEG R 
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T ITLE= ID= TEMPERATURE FUEL TURBINE INLET (DEG R) 

PLOT=TC» 1» TFT 1 1 1»ENDLST 

ENDPLT 

YL0=480. 

YHI=560. 

YLA8EL=I0= TEMPERATURE OXIDIZER TURBINE INLET DEG R 

T ITLE=ID= TEMPERATURE OXIDIZER TURBINE INLET (DEG R) 

PLOT = TC» ltTOTIt If ENDLST 

ENDPLT 

YLO=0. 

YHI=100. 

YLABEL=ID- FUEL TURBINE FLOW RATE CFM 
TITLE=ID= FUEL TURBINE FLOW RATE (CFM) 

PL0T=TCt ltWFTt It ENDLST 

ENDPLT 

YLO=0. 

YHI=50. 

YLABEL= ID= OXIDIZER TURBINE FLOW RATE CFM 
T ITL E=ID= OXIDIZER TURBINE FLOW RATE (CFM) 

PLOT=TCt ltWOTt I, ENDLST 

ENDPLT 

YLO=0 . 

YHI = 0 • 1 

YLABEL=I D=OX IDIZER FLOW RATE LBM SEC 
TITL£=ID= OXIDIZER FLOW RATE ( LBM/SEC ) 

PLOT=TCt 2» W DOT 0, 2t ENDLST 

ENDPLT 

YL0=0- 

YHI=60. 

YLABEL= ID^NOZZ LE STAGNATION PRESSURE PSIA 
TITLE=ID= NOZZLE STAGNATION PRESSURE (PSIA) 
PLOT=TCt2,PNS» 2t ENDLST 
ENDPLT 
Y LO= 0 . 

YHI=300. 

YLABEL= I D= ENGINE SPECIFIC IMPULSE SEC 

TITLE* I D= ENGINE SPECIFIC IMPULSE (SEC) 

PLOT =TCt 2t I SPt 2t ENDLST 

ENDPLT 

YLO=0. 

YHI=0.03 ‘ 
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YLABEL= ID=FUEL FLOW RATE LBM/SEC 
T ITL E= I D=FUEL FLOW RATE { LBM/SEC ) 

PLOT=TC» 2t W DOT Ft 2 * ENOLST 
ENDPLT 

Y L 0= 0 . 

YHI = 10000. 

YLABEL= 10= CHARACTER I ST IC EXHAUST VELOCITY FT/SEC 

T I TL E = I D=CHARACTER I ST 1C EXHAUST VELOCITY 

PL0T=TC»2tCSTAR»2, ENOLST 

ENDPLT 

YL0=0. 

Y HI = 0 • 

YLABEL=ID= C SUB F 
TITLE=ID= C SUB F 
PLOT=TC,2,CF,2t ENOLST 
ENDPLT 

Y L0=0. 

Y HI= 5 . 

YLABEL=ID= ENGINE MIXTURE RATIO 
T ITLE=ID= ENGINE MIXTURE RATIO 
PL 0T=TC»2«MRf2» ENOLST 
ENOPLT 
YL0=0 • 

Y HI=0 .1 

YLABEL=ID= TOTAL FLOW RATE LBM/SEC 
T ITLE= 10= TOTAL FLOW RATE (LBM/SEC) 

PL0T = TC,2, WDOTT, 2 » ENOLST 

ENOPLT 

YLO=0. 

YHI=20. 

Y LABEL= 1 0= TOTAL IMPULSE 
TITLE=ID= TOTAL IMPULSE 
PL0T = TC»2t IT* 2» ENOLST 
ENDPLT 
YLO=0 • 

Y H I = 60 . 

YLABEL=ID= NOZZLE STAGNATION PRESSURE INTEGRAL LBF SEC/IN2 
T ITLE=ID= NOZZLE STAGNATION PRESSURE INTEGRAL ( LBF-SEC/IN2) 
PLOT-T C» 2» INPNS, 2, ENDLST 
ENDPLT 

Y L 0= 0 . 
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YHI = 0 .06 

Y LA8EL= ID= TOTAL OXIDIZER CONSUMED LBM 
T IT LE= ID= TOTAL OXIDIZER CONSUMED (LBM) 

PL0T=TC»2*M0»2» ENDLST 

ENDPLT 

YLO=0 * 

Y HI = 0 .02 

YLABEL=ID= TOTAL FUEL CONSUMED LBM 
TITLE=ID= TOTAL FUEL CONSUMED (LBM) 

PLOT =TC» 2» MF» 2 » ENDL ST 
ENDPLT 
X L0=0 . 

XHI-20. 

Y L0=0 • 

YH 1= 10000 . 

T ITLE= ID=CHARACTER I ST IC EXHAUST VELOCITY .VS. TOTAL IMPULSE 

Y L AB E L= I D=CHAR ACT ERISTIC EXHAUST VELOCITY FT/SEC 
X LABEL= ID=TOT AL IMPULSE 

PLOT=IT, 2» CST AR» 2* ENDLST 

ENDPLT 

XL 0=480. 

XHI=560. 

Y L0=0 • 

YHI=0 . 1 

TITLE=ID= OXIDIZER FLOW RATE .VS. OXIDIZER ORFICE IN TEMPERATURE 

X LABEL=ID=OX IDIZER ORFICE IN TEMPERATURE DEG R 

YLABEL=ID=OX IDIZER FLOW RATE LBM/SEC 

PLOT=TOOI » 1» WDOTOf 2t ENDL ST 

ENDPLT 

ENDFIL 

KUNI T=9 

REPEAT 

KUNIT = 10 

REPEAT 

ENDRUN 

Y EOF 



APPENDIX 3 


This appendix presents the input and output for a sample run with the 
HEPCAT program. Included are the load sheets, a listing of the input and 
the output generated by the program. All option flags in the example pre- 
sented in this appendix were set. Pages A3-2 to A3-8 are the load sheets 
used to generate the data deck. Pages A3-9 to A3-27 are a listing generated 
by the program of the input data. Pages A3-28 to A3-78 contain the output 
generated by the HD011C program. 


A3-1 



A3 -2 











A3-4 


TRW SYSTEMS 


CARD STOCK 


e 3_c^2_ 


NAME 

PROBLEM ND 

HOUSTON COMPUTING CENTER 

□ PLAIN 


pyr 


SPECIAL CHARACTERS 

80 COLUMN FREE KEY PUNCH FORM 

0 SQPTRAN SOURCE 
□ 7094 SYMBOLIC 

KEYPUNCHED BY 
VEfllFiEO BY 






112! 1I41S ! 6 1 7 1 B 1 9 1101111121111141 

151 16H7 110119 f205 2 1?22‘ 231 2*! 25126 27t20|29|30|3M3?!33 134 |3S (V> |37l3Bl39]40l4l|42|*3|4*|«S| 46] *7148 J 49| 50| S1|52{53|S4t5S|S6<S7{50| 59|60|6 1 |62l 63l64|65|66l67l6Ql69f70l71 1 72| 73}74| 75| 76|77|7fl [79 (00 





IT t_ FOAM 701 ACV B «3 
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A3- 6 




A3-7 


TRW SYSTEMS 


CARD STOCK 


eJ£_OF 2_ 





»Tl* FORM 708 REV. 8 09 
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DATE 

PRIORITY 



CARO STOCK 

KEYPUNC 

VERIFIED 


7 DF 

7 



PROBLEM NO 


1 KW oYb \ tMb 

HOUSTON COMPUTING CENTER 

HEO 9Y_ 
BY 



— 

FXT 

SPECIAL CHARACTERS 

80 COLUMN FREE KEY PUNCH FORM 

Q FORTRAN SOURCE 
Q 7094 SYMBOLIC 

wn dp oaror . 









112' SU1S 16 t 71 8 J 9 nOHUMUSlMIIS* 16)1711 8^191201 21' 22123)241251 2S«27l 281 291 10^3 1 132133134 13S |)« 1 37| 38f 39|40|4l | 42(43 J44|4S|46I 47140 1 49f S0|5H52I51(54|5S156«57|S8| 59|60j61 |62|63|64|65|66|67|6B|69|70|7Tl72|73|74|75|76l 

EHHB3 

> fiLAi&iPiLi-Mii 5 i iSrr iANiDiAiRiDiIAEiDi 

iEl/V|G-|J|Alfi |S|?iEiCiI|FiX|C.| XMiPiRiM fi i iSiEiC, | , , 

I [ 1 P 1 1 ! I ! 1 

» 1 ! 1 1 

III 

1 L-L 


1 

TiIiTiLiEi = Ti'ft~i t iSiTiRMfti.AiRiblifciE'iEi 

iEMiS-XiNiFi SiPiEjCXiFJCv aft] PMlSjE, lXsP&L_l 

11(1111111 

1 1 r 1 1 

1 ! 1 

1 \ _! 

| ( 

I 

PiLi<^iTiSiTiCi^ iZij iISiTSi^ 3 

. iGMUiLiSiTi 


1 . 1 i 1 ll 1 1 l l 1 1 1 1 1 m i i i i i 1 i i i 1 1 i 

1 1 1 1 1 1 I 1 1—1 

i I f i r 

l_ L.L 

i i i 

i i 

f 

&NlftlP;LiTi Ill 

/ 

1 1 1 1 1 1 1 

J L 

1 l 1 l 1 1 1 1 1 .1 1. 1 1 L-l 1 1 1 _ l 1 l 1 l . l 1 1 1 l 1 1 

1 l l 1 l l l 1 1 1 

\ A \ 1 1 


1 1 \ 

1 1 



! UJ..1 1 ! 

■L-L 



i i i i i 
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10 JUN 70 1 6£2 7 62 0.464 

16C27S20. 882 
16S27&20. 883 

END 08 FILE — UNIT V 
END CUR ICC 1102-0038 L3 


7 M3T CUR 

1. TRW Y 

2. IN Y 



A3-13 


7 XQT HD r 11C 


10 JUN 7C 


16627026.230 


BLANK COMMON 146171 

STARTING ADDRESS 014000 
CORE LIMITS CL4COO 036211 


163777 


100000 125175 146163 146170 


HDOl 1C/C0DE 

0 1000C 0— 1 OCOO 3 

1 014000-014121 

NS TOP t/COOE 
1 014122-014137 

NIERI /CODE 

0 100004-103004 

1 014140-014444 

2 100 OC 5— 100076 

NFMT $ /CODE 

1 014445-015332 

2 100077-100112 

NCNVT t/CODE 

1 015333-015542 

2 100 113-100176 
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NFTV $ /CODE 
1 015543-015565 

NOT I N$/ CODE 

1 015566-016161 

2 100177-100241 

FP ACK$/CODE 
1 016162-016225 

DEPTH /****** 

0 100242-100247 

NERR$ /CODE 

0 100250-100407 

1 016226-016630 

NI OIN$/ CODE 

1 016631-016676 

2 100 41 O-.l 00440 

NRWND$/CODE 
1 016677-016771 

NT AB$ /CODE 
0 100441-100567 

OUTPUT/CODE 

0 100570-102002 

1 016772-021705 

NI NPT$/ CODE 

0 102003-102004 

1 021706-022615 

2 102005-102037 

NININ$/CODE 

1 022616-022767 

2 102040-102070 



A3-15 


NEX PIS/CODE 

1 022770-023067 

2 102071-102072 

NFOUT $/ CODE 

1 023070-023311 

2 102073-102074 

NBUFF$/CODE 
1 023312-023333 

2. 102075-103105 

NOUTt /CODE 

0 103106-103110 

1 023334-024204 

2 103111-103126 

NBDCV$/ CODE 
0 103127-103313 

SWAGER/CODE 

0 103314-103773 

1 0 2420 5-025435 

SORT /CODE 
0 103774-104030 

2 104031-104072 

RATED /CODE 

0 104073-104635 

1 025436-026463 

HGAMMA/CODE 

0 104636-104677 

1 026464-026610 

HZH /CODE 

0 104700-104742 

1 026611-026733 


OGAMMA/CODE 
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0 104743-104776 

1 026734-027050 

OXZOX /CODE 

0 104777-105051 

1 027051-027164 

ICT /***#*# 

0 105052-105053 

FUNCTN/ ****** 

0 105054-105363 

JHYDE /CODE 

0 105364-105527 

1 027165-030160 

FILTR2/C0DE 

0 105530-105607 

1 030161-032110 

SHIFT /CODE 

0 105610-105624 

1 032111-032141 

AVRGR /CODE 

0 105625-105651 

1 032142-032222 

ZERO /CODE 

0 105652-105666 

1 032223-032252 

FILTR1/C0DE 

0 105667-105731 

1 032253-033017 

C HEWER/ CODE 

0 105732-114354 

1 033020-033642 
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NT RAN /CODE 

0 114355-114355 

1 033643-035143 

2 114356-114505 

TLABLVCODE 
0 114506-114515 

TSCRHi/CODE 
0 114516-114570 

THRU$ /CODE 
0 114571-114706 

TSWAP$/CODE 
0 114707-115007 

TINTL$/CODE 
0 115010-115106 

TIMLST/****** 

0 115107-115107 

TIME /****** 

0 115110-115110 

CDNPUT/CODE 

0 115111-115721 

1 035144-036110 

LABELS/****** 

0 115722-116241 

C0MRT1/ ****** 

0 116242-116247 

COM RAT /****** 

0 116250-116321 

CR2TAP/C0DE 
0 116322-116357 
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1 036111-036211 


UNITS /****** 

0 116360-116363 

ROWS /#**♦** 

0 116364-116400 

FLAGS /#*#*** 

0 116401-116405 

FILES /*♦#*** 

0 116406-116420 

FACTOR/****** 

0 116421-125153 

ENG /****** 

0 125154-125175 


ENO OF ALLOCATION 1103 0038 



BLOCK I — INPUT DATA — LOAD SHEETS ~ CARD INPUT — RUN NO. — 001501 



01 

F 

1 

0.01 



LBF 


02 

PC 

1 

0.1 



PSIA 


03 

FV 

1 

1.0 



CNTS 


04 

PFI 

1 

0.1 



PSIA 


05 

POI 

1 

0.1 



PSIA 


06 

PFI I 

1 

0.1 



PSIA 


07 

POII 

1 

0.1 



PSIA 


08 

PTFO 

1 

0. 1 



PSIA 


09 

PTOO 

1 

0.1 



PSIA 


10 

PDFO 

1 

0.01 



PSID 


11 

PDOO 

1 

0.01 



PSID 


12 

PFIC1 

1 

0.1 



PSIA 


13 

POIC 

1 

0.1 



PSIA 


14 

PFIC2 

1 

0.1 



PSIA 


15 

SS 

1 

1.0 



CNTS 


16 

PFTI 

1 

0.1 



PSIA 

> 

10 

17 

POTI 

1 

0.1 



PSIA 

1 

V-i 

18 

TFI 

1 


118 

218 

DEGF 

\D 

19 

TOI 

1 


118 

218 

DEGF 


20 

TCI 

1 


120 

220 

DEGF 


21 

TC2 

1 


120 

220 

DEGF 


22 

TC3 

1 


120 

220 

DEGF 


23 

TC4 

1 


120 

220 

DEGF 


24 

TC5 

1 


120 

220 

DEGF 


25 

TC6 

1 


. 120 

220 

DEGF 


26 








27 








28 








29 








30 








31 








32 

TFOI 

1 


118 

218 

DEGF 


33 

TOO I 

1 


118 

218 

DEGF 


34 

TFT I 

1 


118 

218 

DEGF 


35 

TOT I 

1 


118 

218 

DEGF 


36 

t 







37 

38 
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BLOCK I - 

- INPUT 

DATA — LOAD 

SHEETS 

— CARD INPUT 

— RUN NO 

. — 001501 

39 

40 WFT 

1 

0.02 


CFM 




41 WOT 

42 

43 

44 

45 

46 

47 

48 

49 

1 

0.01 


CFM 




50 RUNNO 
118 2 

1 

1. 






0 . 

0 . 

5000. 

5000. 





218 20 








0 . 

-302. 

662. 

0 . 

725. 

30. 

735. 

35. 

746. 

40. 

757. 

45. 

768. 

50. 

779. 

55. 

790. 

60. 

801. 

65. 

812. 

70. 

823. 

75. 

835. 

80. 

846. 

85. 

85 8. 

90. 

869. 

95. 

881. 
120 2 

100. 

892. 

105. 

904. 

110. 

4095. 

1137. 

0 . 

0 . 

5000. 

5000. 





220 20 








0. 

-302. 

768. 

50. 

881. 

100. 

1000. 

150. 

1126. 

200. 

1257. 

250. 

1394. 

300. 

1464. 

325. 

1535. 

350. 

1608. 

375. 

1681. 

400. 

1756. 

425. 

1832. 

450. 

1909. 

475. 

1986. 

500. 

2145. 

550. 

2306. . 

600. 

2471. 

650. 

2639. 

700. 

4095. 

1137. 


.4255 

.655 


.46 

1.0 


.624 


.42 

1.0 


7.9173 

2.1275 


0.0 

67 

.0 

67.0 


40.0 

40.0 


30.0 

0 00 1 1 

111 








CASEND 



1.6-tV 


BLOCK I — INPUT CONSTANTS — CAR D INPUT VARIABLES — RUN NO. — 00150 1 


AC 

7 .9173 

AE 

2.1275 

AT 

.4255 

CF1 

. 1603 

CF2 


.9905 


CF3 

.0031 

CF4 

74.0000 

d:star 

. 0000 

DHO 

.4200 

DDO 


.4600 


DPH 

1.0000 

DPO 

1.0000 

G 

32.1302 

GAMMA 

1.4000 

IDUMP 


.0000 


IPC 

1.0000 

IPLOT 

1.0000 

IRATED 

1.0000 

K 

.9993 

KF 


.6240 


KO 

.6550 

MICROT 

17.0000 

MWH 

2.0160 

MWQ 

32.0000 

NDP 


.0000 


NP 

1.0000 

PAB 

.0000 

PC s 

30.0000 

PFDS 

40.0000 

PODS 


40.0000 


TFDS 

67.0000 

TODS 

67.0000 









BLOCK I - 

- TABLES 

OF SCALESt CALIBRATION CURVES 

ANO BIASES — CARO 

1 INPUT VARIABLES 

— 

RUN ND. — 

001501 

THE SCALING FACTORS FOR REQUESTED CHANNELS ARE 

— 







CH PARAM 

FACTOR 

CH 

PARAM FACTOR CH 

PARAM 

FACTOR 

CH PARAM 

FACTOR 

CH PARAM 

FACTOR 

1 F 

.0100 2 

PC 

. 1000 3 

FV 

1.0000 

4 PFI 

• 

1000 

5 PDI 

.1000 

6 PFII 

.1000 7 

POII 

.1000 8 

PTF 0 

. 1000 

9 PTOO 

• 

1000 

10 PDFQ 

.0100 

11 PDOO 

.0100 12 

PF IC 1 

.1000 13 

POIC 

. 1000 

14 PFIC2 

• 

1000 

15 SS 

1.0000 

16 PFT I 

.1000 17 

POTI 

.1000 40 

WFT 

.0200 

41 WOT 

« 

0100 

50 RUNNO 

1.0000 


COUNTS TO MILLI-VOLTS CALIBRATION CURVE FOR CHANNEL 18 TFI CONSISTS OF 2 POINTS — 

ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 

MILLI-VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 18 TFI CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 


.0000/ 

-302.0000 

662.0000/ 

.0000 

72 5.0000/ 

30.0000 

735.0000/ 

35.0000 

746.0000/ 

40.0000 

757.0000/ 

45.0000 

768.0000/ 

50.0000 

779. 0000/ 

55.0000 

790.0000/ 

60.0000 

801.0000/ 

65.0000 

812.0000/ 

70.0000 

823.0000/ 

75.0000 

835.0000/ 

80.0000 

846.0000/ 

85.0000 

858.0000/ 

90.0000 

869.0000/ 

95.0000 

881.0000/ 

100.0000 

892. 0000/ 

105.0000 

904.0000/ 

110.0000 

4095.0000/ 

1137.0000 



A3-22 


BLOCK I — TABLES OF SCALES, CALIBRATION CURVES AND BIASES — CARD INPUT VARIABLES — RUN NO. — 001501 

COUNTS TO MILL I-VOLTS CALIBRATION CURVE FOR CHANNEL 19 TOI CONSISTS OF 2 POINTS — 

ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/OROINATE 

.0000/ .0000 5000.0000/ 5000.0000 

M1LLI-VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 19 TOI CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
757.0000/ 45.0000 

812.0000/ 70.0000 

869.0000/ 95.0000 


ABSC IS SA /ORDINATE 
662.0000/ ■ .0000 
768.0000/ 50.0000 

823.0000/ 75.0000 

881.0000/ 100.0000 


ABSCISSA/ORDINATE 
725.0000/ 30.0000 

779.0000/ 55.0000 

835.0000/ 80.0000 

892.0000/ 105.0000 


ABSCISSA/ORDINATE 
735.0000/ 35.0000 

790.0000/ 60.0000 

846.0000/ 85.0000 

904.0000/ 110.0000 


ABSC ISSA /ORDINATE 
746,0000/ 40.0000 

801.0000/ 65.0000 

858.0000/ 90.0000 

4095.0000/ 1137. DOOO 


COUNTS TO MI LL I-VOLTS CALIBRATION CURVE FOR CHANNEL 20 TCI CONSISTS OF 2 POINTS — 

ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 

MILLI-VOLTS TO ENG. JNITS CALIBRATION CURVE FOR CHANNEL 20 TCI CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
1257.0000/ 250.0000 

1681.0000/ 400.0000 

2145.0000/ 550.0000 


ABSC ISSA/ORDINATE 
768.0000/ 50.0000 

1394.0000/ 300.0000 

1756.0000/ 425.0000 

2306.0000/ 600.0000 


A BSC I SSA/ORDINATE 
381.0000/ 100.0000 

1464.0000/ 325.0000 

1832.0000/ 450.0000 

2471.0000/ 650.0000 


ABSCISSA/ORDINATE 
1000.0000/ 150.0000 

1535.0000/ 350.0000 

1909.0000/ 475.0000 

2639.0000/ 700.0000 


ABSCISSA/ORDINATE 
1126.0000/ 200.0000 
1608.0000/ 375.0000 

1986.0000/ 500.0000 

4095.0000/ 1137.0000 
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BLOCK I — TABLES OF SCALES, CALIBRATION CURVES AND BIASES — CARD INPUT VARIABLES — RUN NO. — 001501 

COUNTS TO MILL I-VOLT S CALIBRATION CURVE FOR CHANNEL 21 TC2 CONSISTS OF 2 POINTS — 

ABSC ISS A/ORDIN AT E ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 

MILLI-VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 21 TC2 CONSISTS OF 20 POINTS -- 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
1257.0000/ 250.000G 

1681.0000/ 400.0000 

2145.0000/ 550.0000 


ABSCISSA/ORDINATE 
768.0000/ 50.0000 

1394.0000/ 300.0000 

1756.0000/ 425.0000 

2306.0000/ 600.0000 


ABSCISSA/ORDINATE 
881.0000/ 100.0000 
1464.0000/ 325.0000 

1832.0000/ 450.0000 

2471.0000/ 650.0000 


ABSCISSA/ORDINATE 
1000.0000/ 150.0000 

1535.0000/ 350.0000 

1909.0000/ 475.0000 

2639.0000/ 700.0000 


ABSCISSA/ORDINATE 
1126.0000/ 200.0000 
1608.0000/ 375.0000 

1986.0000/ 500.0000 

4095.0000/ 1137.0000 


COUNTS TO MILLI-VOLTS CALIBRATION CURVE FOR CHANNEL 22 TC3 CONSISTS OF 2 POINTS — 

ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 

MILLI-VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 22 TC3 CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
1257.0000/ 250.0000 

1681.0000/ 400.0000 

2145.0000/ 550.0000 


ABSCISSA/ORDINATE 
768.0000/ 50.0000 

1394.0000/ 300.0000 

1756.0000/ 425.0000 

2306.0000/ 600.0000 


ABSCISSA/ORDINATE 
881.0000/ 100.0000 
1464.0000/ 325.0000 

1832.0000/ 450.0000 

2471.0000/ 650.0000 


ABSCISSA/ORDINATE 
1000.0000/ 150.0000 

1535.0000/ 350.0000 

1909.0000/ 475.0000 

2639.0000/ 700.0000 


ABSCISSA/ORDINATE 
1126.0000/ 200.0000 
1608.0000/ 375.0000 

1986.0000/ 500.0000 

4095.0000/ 1137.0000 
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BLOCK I 


TABLES OF SCALES. CALIBRATION CURVES AND BIASES 


CARD INPUT VARIABLES 


RUN NO 


001501 


COUNTS TO MI LLI-VOLTS CALIBRATION CURVE FOR CHANNEL 23 TC4 CONSISTS OF 2 POINTS — 

ABSCISSA/ORDINATE ABSC ISSA/ORDI NATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 

MI LLI-VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 23 TC4 CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
1257.0000/ 250.0000 

1681.0000/ 400.0000 

2145.0000/ 550.0000 


ABSCISSA/ORDINATE 


768.0000/ 
1394. 0000/ 
1756.0000/ 
2306.0000/ 


50.0000 

300.0000 

425.0000 

600.0000 


ABSCISSA/ORDINATE 


881.0000/ 
1464. 0000/ 
1832.0000/ 
2471.0000/ 


100.0000 

325.0000 

450.0000 

650.0000 


ABSCISSA/ORDINATE 


1000 . 0000 / 

1535.0000/ 

1909.0000/ 

2639.0000/ 


150.0000 

350.0000 

475.0000 

700.0000 


COUNTS TO MILLI-VOLTS CALIBRATION CURVE FOR CHANNEL 24 TC5 CONSISTS OF 2 POINTS — 


ABSCISSA/ORDINATE 

. 0000 / .0000 


ABSCISSA/ORDINATE 
5000.0000/ 5000.0000 


ABSCISSA/ORDINATE 


ABSCISSA/ORDINATE 


MILLI-VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 24 TC5 CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
1257.0000/ 250.0000 

1681.0000/ 400.0000 

2145.0000/ 550.0000 


ABSCISSA/ORDINATE 
768.0000/ 50.0000 

1394.0000/ 300.0000 

1756.0000/ 425.0000 

2306.0000/ 600.0000 


ABSCISSA/ORDINATE 
881.0000/ 100.0000 
1464.0000/ 325.0000 

1832.0000/ 450.0000 

2471.0000/ 650.0000 


ABSCISSA/ORDINATE 
1000.0000/ 150.0000 

1535.0000/ 350.0000 

1909.0000/ 475.0000 

2639.0000/ 700.0000 


ABSC ISSA/QRDINATE 


ABSCISSA/ORDINATE 
1126.0000/ 200.0000 
1608.0000/ 375.0000 

1986.0000/ 500.0000 

4095.0000/ 1137. OOGO 


ABSCISSA/ORDINATE 


ABSCISSA /ORDINATE 
1126.0000/ 200.0000 
1608.0000/ 375.0000 

1986.0000/ 500.0000 

4095.0000/ 1137.0000 



A3-25 


SLOCK I — TABLES OF SCALESt CALIBRATION CURVES AND BIASES — CARD INPUT VARIABLES — RUN NO 


COUNTS TO M I LLI-VOLTS CALIBRATION CURVE FOR CHANNEL 25 TC6 CONSISTS OF 2 POINTS — 

ABSCISSA/ORDINATE AB SCI SSA/OROI NATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.OOCO/ .0000 5000.0000/ 5000.0000 


Ml LLI-VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 25 TC6 CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
1257.0000/ 250.0000 

1681.0000/ 400.0000 

.2145.0000/ 550.0000 


ABSCISSA /ORDINATE 


768.0000/ 
1394. 0000/ 
1756. 0000/ 
2306.0000/ 


50.0000 

300.0000 

425.0000 

600.0000 


ABSCI SSA/OROINATE 


881.0000/ 
1464. 0000/ 
1832.0000/ 
2471.0000/ 


100.0000 

325 .0000 

450.0000 

650.0000 


ABSCISSA/ORDINATE 


1000 . 0000 / 

1535.0000/ 

1909.0000/ 

2639.0000/ 


150.0000 

350.0000 

475.0000 
700-0000 


COUNTS TO MILL I-VOLTS CALIBRATION CURVE FOR CHANNEL 32 TFOI CONSISTS OF 2 POINTS — 

ABSCI SSA/OROINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 


MI LLI-VQLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 32 TFOI CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
757.0000/ 45.0000 

812.0000/ 70.0000 

869.0000/ 95.0000 


ABSCISSA/ORDINA TE 
662.0000/ .0000 
768.0000/ 50.0000 

823.0000/ 75.0000 

881.0000/ 100.0000 


ABSCISSA/ORDINATE 
725.0000/ 30.0000 

779.0000/ 55.0000 

835.0000/ 80.0000 

892.0000/ 105.0000 


ABSCISSA/ORDINATE 
735.0000/ 35.0000 

790.0000/ 60.0000 

846.0000/ 85.0000 

904.0000/ 110.0000 


. — 001501 


ABSCISSA/ORDINATE 


ABSCISSA /ORDINATE 
1126.0000/ 20C.OOOO 
1608.0000/ 375.0000 

1986.0000/ 500.0000 

4095.0000/ 1137.0000 


ABSCISSA/ORDINATE 


ABSCISSA/ORDINATE 
746.0000/ 40.0000 

801.0000/ 65.0000 

858.0000/ 90.0000 

4095.0000/ 1137.0000 



A3-26 


BLOCK I — TABLES OF SCALES, CALIBRATION CURVES AND BIASES -- CARD INPUT VARIABLES — RUN NO. -- 001501 

COUNTS TO MILL I-VOL TS CALIBRATION CURVE FOR CHANNEL 33 TOOI CONSISTS OF 2 POINTS -- 

ABSCISSA/QRDINATE AB SC I SSA/ OROI NA TE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 

MI LLI-VOL T S TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 33 TOOI CONSISTS OF 20 POINTS — 

ABSCISSA/ORDINATE ABSC ISS A/ORDI NA TE ABSCISSA/ORDINATE ABSCI SS A/ORD INAT E ABSCISSA/ORDINATE 

.0000/ -302.0000 662.0000/ .0000 725.0000/ 30.0000 735.0000/ 35.0000 746.0000/ 40.0000 

757.0000/ 45.0000 768.0000/ 50.0000 779.0000/ 55.0000 790.0000/ 60.0000 801.0000/ 65.0000 

812.0000/ 70.0000 823.0000/ 75.0000 835.0000/ 80.0000 846.0000/ 85.0000 858.0000/ 90.0000 

• 869.0000/ 95.0000 881.0000/ 100.0000 892.0000/ 105.0000 904.0000/ 110.0000 4095.0000/ 1137-0000 

COUNTS TO MILL I-VOLTS CALIBRATION CURVE FOR CHANNEL 34 TFT I CONSISTS OF 2 POINTS — 

ABSCISSA/ORDINATE ABSCISSA /OROI NATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 

MILLI-VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 34 TFT1 CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/OROINATE ABSCISSA/ORDINATE 


.0000/ 

-302.0000 

662.0000/ 

.0000 

725.0000/ 

30.0000 

735.0000/ 

35.0000 

746.0000/ 

40.0000 

757.0000/ 

45.0000 

768.0000/ 

50. 0000 

779.0000/ 

55.0000 

790 .0000/ 

60.0000 

801.0000/ 

65.0000 

812.0000/ 

70.0000 

823.0000/ 

75.0000 

835. 0000/ 

80.0000 

846.0000/ 

85.0000 

858.0000/ 

90.0000 

869.0000/ 

95.0000 

881.0000/ 

100. 0000 

892.0000/ 

105.0000 

904.0000/ 

110.0000 

4095.0000/ 

1137.0000 



A3-27 


BLOCK I — TABLES OF SCALES, CALIBRATION CURVES AND BIASES — CARD INPUT VARIABLES — RUN NO 


COUNTS TO MILL I-VOLTS CALIBRATION CURVE FOR CHANNEL 35 TOTI CONSISTS OF 2 POINTS -- 


ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE ABSCISSA/ORDINATE 

.0000/ .0000 5000.0000/ 5000.0000 


MI LL I— VOLTS TO ENG. UNITS CALIBRATION CURVE FOR CHANNEL 35 TOTI CONSISTS OF 20 POINTS — 


ABSCISSA/ORDINATE 
.0000/ -302.0000 
757.0000/ 45.0000 

812.0000/ 70.0000 

869.0000/ 95.0000 


ABSCISSA/ORDINATE 


662.0000/ 

768.0000/ 

823.0000/ 

881.0000/ 


.0000 

50.0000 

75.0000 
100. 0000 


ABSCISSA/ORDINATE 
725.0000/ 30.0000 

779.0000/ 55.0000 

835.0000/ 80.0000 

892.0000/ 105.0000 


ABSCISSA/ORDINATE 


735.0000/ 

790.0000/ 

846.0000/ 

904.0000/ 


35.0000 

60.0000 
85.0000 

110.0000 


. -- 001501 


ABSCISSA/ORDINATE 


ABSCISSA/ORDINATE 
746.0000/ 40.0000 

801.0000/ 65.0000 

858.0000/ 90.0000 

4095.0000/ 1137.0000 



az-ev 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

.0000 -- SEC 




F 


.0020 

PC 

17.1000 

FV 


462.8000 

PFI 

.7100 

POI 

3.2400 

PFII 


241.0800 

POII 

192.9200 

PTFO 


235.9700 

P TOO 

189.8300 

PDFQ 

.0730 

PDOO 


.1470 

PFIC1 

16.4300 

POIC 


312.8800 

PFIC2 

14.6000 

SS 

499.6000 

PFT I 


263.0800 

POTI 

210. 5400 

TFI 


58.7727 

TOI 

57.7273 

TCI 

71.3717 

TC2 


71.9027 

TC3 

71.6372 

TC 4 


71.2389 

TC5 

71.7699 

TC6 

71.1504 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFOI 

55.4545 

TOOI 


55.4545 

TFTI 

55.9091 

TOT I 

55.0000 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0040 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

• 100C 

1 — SEC 




F 


• .0050 

PC 

14.7000 

FV 


506.3000 

PFI 

.0000 

POI 

.0000 

PFII 


262.8400 

POII 

210.8700 

PTFO 


262.2000 

PTOO 

210. 1900 

PDFO 

.0060 

PDOO 


.0140 

PFIC1 

14.6700 

POIC 


312.9100 

PFIC2 

14.6100 

SS 

499.7000 

PFT I 


263.0700 

POTI 

210.5500 

TFI 


58.6364 

TOI 

57.8182 

TCI 

71.4159 

TC2 


72.0354 

TC3 

71.6814 

TC4 


71.5044 

TC5 

71.9469 

TC6 

71.1504 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFOI 

55.5454 

TOOI 


55.5454 

TFTI 

56.1818 

TOT I 

55.2727 



.0000 


.0000 



.0000 


.0000 

WFT 

.0080 

WOT 


.0040 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

.2000 

t — SEC 




F 


.0040 

PC 

14.7100 

FV 


505.7000 

PFI 

.0000 

POI 

.0000 

PFJI 


262.9200 

POII 

210.9000 

PTFO 


262.3000 

PTOO 

210.2000 

PDFO 

.0060 

PDOO 


.0150 

PFIC1 

14.7100 

POIC 


14.6000 

PFIC2 

14.6400 

SS 

498.4000 

PFTI 


409.5000 

POTI 

210.5800 

TFI 


59.0909 

TOI 

57.7273 

TCI 

71.2832 

TC2 


71.8584 

TC3 

71.6814 

TC4 


71.4602 

TC5 

71.8584 

TC6 

71.1947 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFOI 

55.6364 

TOOI 


55.4545 

TFTI 

55.9091 

TOT I 

55.0909 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0000 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 



A3- 2 9 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — .3000 

— SEC 




F 

.0000 

PC 

14.7000 

FV 

505.8000 

PFI 

.0000 

POI 

.0000 

PFI I 

262.9200 

POII 

210.8200 

PTFQ 

262.3100 

PTOO 

210.1900 

PDFO 

.0060 

PDOO 

.0120 

PFIC1 

14.6800 

POIC 

14.5800 

PFIC2 

14.6200 

. SS 

498.3000 

PFT I 

409.5000 

POTI 

210.5400 

TFI 

59.0909 

TOI 

57.5909 

TCI 

71.2832 

TC2 

71.6372 

TC3 

71.5929 

t:4 

71.3274 

TC5 

71.7257 

TC6 

71.0619 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.4545 

TODI 

55.4545 

TFTI 

55.9091 

TOT I 

55.0000 


.0000 


.0000 


.0000 


.0000 

WFT 

.0080 

HOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK 

11 OUTPUT — 

RUN NO . 

— 001501 

-- TIME 

C — .4000 

1 — SEC 




F 

.0000 

PC 

14.7200 

FV 

506.0000 

PFI 

.0000 

POI ■ 

.0000 

PFI I 

262.9400 

POII 

210.8700 

PTFQ 

262.3100 

PTOO 

210.2100 

PDFO 

.0050 

PDOO 

.0160 

PFIC1 

14.6500 

POIC 

14.6000 

PFIC2 

14.6 200 

SS 

498.7000 

PFT I 

263.2100 

POT I 

210.5400 

TFI 

58.7273 

TOI 

57.8636 

TCI 

71.3717 

TC2 

71.9469 

TC3 

71.5929 

TC4 

71.4602 

TC5 

71.9027 

TC6 

71.1504 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

5 5.4545 

TQOI 

55.4545 

TFTI 

55.9091 

TOT I 

55.1818 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0040 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — .5000 — SEC 




F 

.0010 

PC 

14.7300 

FV 

505.8000 

PFI 

.0000 

POI 

.0000 

PFI I 

262.9400 

POII 

210.8900 

PTFO 

262.3200 

PTOO 

210.2200 

PDFO 

.0080 

PDOO 

.0160 

PFIC1 

14.6900 

POIC 

14.6100 

PFIC2 

14.6400 

SS 

498.6000 

PFT I 

263.2000 

POTI 

210.5700 

TFI 

58.7273 

TOI 

57.7273 

TCI 

71.5044 

TC2 

72.0354 

TC3 

71.8142 

TC4 

71.4602 

TC5 

72.0354 

TC6 

71.1947 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.5454 

TOOI 

55.6364 

TFTI 

55.9091 

TOT I 

55.3636 


.0000 


.0000 


.0000 


.0000 

WFT 

.0080 

WOT 

.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



.A3-30 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

0 — . 600C 

1 — SEC 




F 

.0000 

PC 

14.7200 

FV 

505. 7000 

PFI 

.0000 

POI 

.0000 

PFI I 

262.9000 

POII 

210.8400 

PTFO 

262.2900 

PTOO 

210.1700 

PDFO 

.0070 

PDOO 

.0130 

PFIC1 

14.7200 

POIC 

14.5800 

PFIC2 

14.6000 

SS 

49 8.6000 

PFT I 

263.1900 

POTI 

210.5800 

TFI 

58.7727 

TOI 

57.5000 

TCI 

71.2832 

TC2 

71.7699 

TC3 

71.6814 

TC4 

71.3274 

TC5 

71.7257 

TC6 

71.1504 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.5454 

TOOI 

55.4545 

TFTI 

55.9091 

TOTI 

55.0000 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK II 

OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C — .7000 

I — SEC 




F 

.0050 

PC 

14.7000 

FV 

506.2000 

PFI 

.0000 

POI 

.0000 

PFII 

262.8900 

POII 

210. 8400 

PTFO 

262.2800 

PTOO 

210.2100 

PDFO 

.0070 

PDOO 

.0140 

PFIC1 

14.6800 

POIC 

14.6200 

PFIC2 

14.6400 

SS 

498.8000 

PFT I 

263.1500 

POTI 

210.5600 

TFI 

58.7273 

TOI 

57-7273 

TCI 

71.3274 

TC2 

71.9911 

TC3 

71.6814 

TC4 

71.5044 

TC5 

71.9469 

TC6 

71.1504 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.5454 

TOOI 

55.4545 

TFTI 

56.0000 

TOTI 

55.2727 


.0000 


.0000 


.0000 


.0000 

WFT 

.0080 

WOT 

.0040 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK 

II OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

C — .8000 

— SEC 




F 

.0000 

PC 

14.7300 

FV 

506.0000 

PFI 

.0000 

POI 

.0000 

PFII 

262.8900 

POII 

210.9400 

PTFO 

262.2900 

PTOO 

210.2300 

PDFO 

.0080 

PDOO 

.0190 

PFIC1 

14.6900 

POIC 

14.6400 

PFIC2 

14.6400 

SS 

498.8000 

PFT I 

263.1800 

POTI 

210.5800 

TFI 

58.7273 

TOI 

57.6818 

TCI 

71.4602 

TC2 

72.1239 

TC3 

71.8584 

TC 4 

71.5929 

TC5 

72.1239 

TC6 

71.2832 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.6364 

TOOI 

55.6364 

TFTI 

55.9091 

TOTI 

55.3636 


.0000 


.0000 


.0000 


.0000 

WFT 

.0080 

WOT 

.0040 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



Lfc~t V- 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — .9000 

— SEC 




F 


.0000 

PC 

14.7100 

FV 

505. 7000 

PFI 

.0000 

PQI 

.0000 

PFI I 


262.8700 

POII 

210.8800 

PTFO 

262.3000 

PTOO 

210.2000 

PDFO 

.0110 

PDOO 


.0170 

PFIC1 

14.7000 

PQIC 

14.5900 

PFIC2 

14.6400 

SS 

498.6000 

PFT I 


263. 1800 

POT I 

210.5800 

TFI 

58.7727 

TOI 

57.6818 

TCI 

71.4602 

TC2 


71.8142 

TC3 

71.7257 

TO 4 

71.3717 

TC5 

71.9469 

TC6 

71.1504 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFOI . 

55.7273 

TQOI 

55.4545 

TFTI 

55.9091 

TOT I 

55.0909 



.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 


.0020 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

c — l.OOOC 

» — SEC 




F 


5.0570 

PC 

263.0200 

FV 

2102.8000 

PFI 

262.9500 

POI 

210.9700 

PFI I 


262.4300 

POII 

210.2000 

PTFO 

.0700 

PTQO 

.1300 

PDFO 

1.4700 

PDOO 


1.4630 

PFIC1 

14.6300 

POIC 

352.7500 

PFIC2 

263.2000 

SS 

2105.7000 

PFT I 


78.7200 

POT I 

78.4900 

TFI 

71.8182 

TOI 

72.5455 

TCI 

71.6372 

TC2 


71.6814 

TC3 

71.9469 

TC4 

71.1504 

TC5 

737.0069 

TC6 

114.4118 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFQ I 

56.4545 

TQOI 

55.0909 

TFTI 

55.2727 

TOT I 

53.9091 



.0000 


.0000 


.0000 


.0000 

WFT 

3.0360 

WOT 


.0000 


.0000 


.0000 


.0000 


-0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

146.6000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C “ 1.1000 

f — SEC 




F 


1.4840 

PC 

.1500 

FV 

2632.0000 

PFI 

50.5900 

POI 

262.9500 

PFI I 


210.3000 

POII 

262.2700 

PTFO 

210.9000 

PTOO 

.0 700 

PDFO 

21.0230 

PDOO 


1.4630 

PFIC1 

.1600 

PQIC 

14.6100 

PFIC2 

14.6200 

SS 

2631.9000 

PFT I 


352.8100 

POTI 

78.6900 

TFI 

496.3721 

TOI 

71.8636 

TCI 

57.0796 

TC2 


71.8584 

TC3 

72.3451 

TC4 

72.0796 

TC5 

71.5487 

TC6 

737.3971 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFOI 

56.6364 

TOOI 

55.9091 

TFTI 

55.5454 

TOT I 

55.2727 



.0000 


.0000 


.0000 


.0000 

WFT 

15.6000 

WOT 


.3300 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1.0000 



A3-32 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

TIME 

C 

— 1.2000 

— SEC 




F 


, .0090 

PC 

14.8300 

FV 


505.7000 

PFI 

263.2000 

POI 

210.4500 

PFI I 


262.9800 

POII 

211.0200 

PTFO 


262.3400 

PTOO 

210.2500 

PDFO 

.0100 

PDOO 


.0170 

PFIC1 

14.6800 

POIC 


14.6900 

PFIC2 

14.6800 

SS 

3527.9000 

PFT I 


263. 1900 

POTI 

210.6700 

TFI 


58.9091 

TOI 

57.7273 

TCI 

71.4159 

TC2 


72.3894 

TC3 

71.8142 

TC4 


71.5487 

TC5 

72.1239 

TC6 

71.4602 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.8182 

TOOI 


56.0000 

TFTI 

56.1818 

TOT I 

55.3636 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0040 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

c 

— 1.3000 

— SEC 





F 

.0020 

PC 

14.8100 

FV 

505.6000 

PFI 

263.2100 

POI 

210.3600 

PFI I 

262.9400 

POII 

210.9100 

PTFO 

262.2700 

PTOO 

210.2100 

PDFO 

.0090 

PDOO 

.0180 

PFIC1 

14.6900 

POIC 

14.6100 

PFIC2 

14.6400 

SS 

3528.1000 

PFT I 

263.1200 

POTI 

210.6000 

TFI 

58.7727 

TOI 

57.5909 

TCI 

71.2389 

TC2 

72.2124 

TC3 

71.9469 

TC4 

71.4159 

TC5 

71.9469 

TC6 

71.2832 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.5454 

TOOI 

55.4545 

TFTI 

56.0000 

TOTI 

55.0909 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1500.6000 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 1.4000 — SEC 




F 

.0010 

PC 

14.7700 

FV 

505. 7000 

PFI 

263. 1800 

POI 

210.3400 

PFI I 

262.9300 

POII 

210.9000 

PTFO 

262.2600 

PTOO 

210.1900 

PDFO 

.0070 

POOO 

.0140 

PFIC1 

14.6900 

POIC 

14.6200 

PFIC2 

14.6000 

SS 

3528.5000 

PFT I 

263.1100 

POTI 

210.5700 

TFI 

58.6818 

TOI 

57.8182 

TCI 

71.4159 

TC2 

72.3451 

TC3 

71.7699 

TC4 

71.3717 

TC5 

71.9469 

TC6 

71.1062 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.4545 

TOOI 

55.6364 

TFTI 

56.3636 

TOTI 

55.1818 


.0000 


.0000 


.0000 


.0000 

WFT 

.0000 

WOT 

.00 40 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-33 


BLOCK 

II 

OUTPUT — 

RUM NO. 

— 001501 

— TIME 

C 

— 1.5000 

— SEC 




F 


.0010 

PC 

14.7300 

FV 


505. 8000 

PFI 

263.2000 

POI 

210.4300 

PFII 


262.9500 

POII 

210.8700 

P TFO 


262. 1700 

PTGO 

210.2300 

PDFQ 

.0070 

PDOO 


.0160 

PFIC1 

14.6400 

POIC 


14.6600 

PFIC2 

14.6300 

ss 

3529.0000 

PFT I 


263. 1500 

POT I 

210.6200 

TFI 


58.8182 

TOI 

57.7727 

TCI 

71.2832 

TC2 


72.2566 

TC3 

71.7257 

TC4 


71.7699 

TC5 

72.1239 

TC6 

71.4602 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.72 73 

TOOI 


55.6364 

TFTI 

55.9091 

TOTI 

55.4545 



.0000 ‘ 


.0000 



.0000 


.0000 

WFT 

.0080 

WOT 


.0020 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT -- 

RUM MO. 

— 001501 

-- TIME 

C 

~ 1.6000 

— SEC 





F 

.0000 

PC 

14.7100 

FV 

505.7000 

PFI 

263.1900 

POI 

210.3500 

PFI I 

262.9200 

POII 

210.9300 

PTFD 

262.2800 

PTOO 

210.2300 

PDFO 

.0110 

PDOO 

.0170 

PFIC1 

14.6700 

POIC 

14.6800 

PFIC2 

14.7200 

SS 

3528.7000 

PFT I 

263.2100 

POT I 

210.6200 

TFI 

58.7727 

TOI 

57.6818 

TCI 

71.4159 

TC2 

72.3009 

TC3 

71.7699 

TC4 

71.4159 

TC5 

72.0796 

TC6 

71.2389 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.6364 

TOOI 

55.4545 

TFTI 

56.0000 

TOTI 

55.0909 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0040 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK 

II OUTPUT — 

RUM NO. 

~ 001501 

— TIME 

C — 1.7000 

I ~ SEC 




F 

.0020 

PC 

14.6900 

FV 

505.7000 

PFI 

263. 1300 

POI 

210.3300 

PFII 

262.9300 

POII 

210.8600 

PTFO 

262.2200 

PTOO 

210. 1700 

PDFO 

.0070 

PDOO 

.0120 

PFICi 

14.6900 

PDIC 

14.5500 

PFIC2 

14.5900 

SS 

3526.4000 

PFT I 

263.0800 

POTI 

210.5800 

TFI 

58.8182 

TOI 

57.5000 

TCI 

71.1062 

TC2 

72.1239 

TC3 

71.6814 

TC4 

71. 5929 

TC5 

72.1239 

TC6 

71.3717 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.3636 

TOOI 

55.3636 

TFTI 

55.9091 

TOTI 

55.0000 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



?£*-£V 


BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

F 


.0030 

PC 

14.6800 

FV 

PFI I 


262.8900 

POII 

210.9100 

PTFO 

POOO 


.0130 

PFIC1 

14.6700 

POIC 

PFT I 


263.1500 

POTI 

210.6500 

TFI 

TC2 


72.3451 

TC3 

71.8142 

TC 4 



.0000 


.0000 




.0000 

TF3 I 

55.6364 

TOOI 



.0000 


.0000 


WOT 


.0060 


.0000 




.0000 


.0000 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

F 


.0070 

PC 

14.7400 

FV 

PFI I 


262.9400 

POII 

210.9200 

PTFO 

PDOO 


.0190 

PFIC1 

14.6900 

POIC 

PFT I 


263.1900 

POTI 

210.6600 

TFI 

TC2 


72.3009 

TC3 

71.8142 

TC4 



.0000 


.0000 




.0000 

TFQ I 

55.6364 

TOOI 



.0000 


.0000 


WOT 


.0040 


.0000 




.0000 


.0000 


BLOCK 

II 

OUTPUT -- 

RUN NO. 

— 001501 

— TIME 

F 


.0010 

PC 

14.6500 

FV 

PFII 


262.9300 

POII 

210.8400 

PTFO 

PDOO 


.0100 

PFIC1 

14.5700 

POIC 

PFT I 


263.1800 

POTI 

210.5800 

TFI 

TC2 


72.1681 

TC3 

71 i 7257 

TC4 



.0000 


.0000 




.0000 

TFOI 

55.4545 

TOOI 



.0000 


.0000 


WOT 


.0040 


.0000 




.0000 


.0000 



— 1.8000 — SEC 


505.9000 

PFI 

263. 1600 

POI 

210.3600 

262.2500 

PTOO 

210.2200 

PDFO 

.0080 

14.6200 

PFIC2 

14.6200 

SS 

3527.6000 

58.8182 

TO I 

57.9091 

TCI 

71.3274 

71.6372 

TC5 

72.1239 

TC6 

71.3274 

.0000 


.0000 


.0000 

55.8182 

TFTI 

56.0000 

TOT I 

55.3636 

.0000 


.0000 

WFT 

.0040 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 

— 1.9000 

i — SEC 




505.5000 

PFI 

263. 1300 

POI 

210.3700 

262.2400 

PTOO 

210.2500 

PDFO 

.0140 

14.6100 

PFIC2 

14.6100 

SS 

3527.4000 

58.9545 

TOI 

57.8182 

TCI 

71.1947 

71.7257 

TC5 

72.1239 

TC6 

71.2832 

.0000 


.0000 


.0000 

55.5454 

TFTI 

56.0909 

TOTI 

55.2727 

.0000 


.0000 

WFT 

.0040 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 

— 2.0000 

i ~ SEC 




505.5000 

PFI 

263. 1300 

POI 

210.3200 

262.2200 

PTOO 

210.1800 

PDFO 

.0060 

14.5900 

PFIC2 

14.6000 

SS 

3528.5000 

58.6818 

TOI 

57.5909 

TCI 

71.1947 

71. 5044 

TC5 

72.2124 

TC6 

71.2389 

.0000 


.0000 


.0000 

55.4545 

TFTI 

56.0000 

TOTI 

54.9091 

.0000 


.0000 

,WFT 

.0040 

.0000 

. 

.0000 


.0000 

.0000 


.0000 

RUNNO 

1500.6000 



A3-35 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

F 


.0040 

PC 

14.6600 

FV 

PFI I 


262.9300 

POII 

210.8900 

PTFO 

PDOO 


.0150 

PFIC1 

14.6700 

POIC 

PFT I 


263. 1300 

POT I 

210.5700 

TFI 

TC2 


72.3451 

TC3 

71.8584 

TC4 



.0000 


.0000 




.0000 

TFO I 

55.5454 

TOOI 



.0000 


.0000 


WOT 


.0040 


.0000 




.0000 


.0000 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

F 


.0030 

PC 

14.7200 

FV 

PFII 


262.9400 

POII 

210.9000 

PTFO 

PDOO 


.0190 

PFICl 

14.7100 

PQIC 

PFT I 


263. 1500 

POTI 

210.6200 

TFI 

TC2 


72.2566 

TC3 

71.8142 

TC4 



.0000 


.0000 




.0000 

TFO I 

55.7273 

TOOI 



.0000 


.0000 


WOT 


.0020 


.0000 




.0000 


.0000 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

F 


.0040 

PC 

14.6700 

FV 

PFII 


262.9500 

POII 

210.8500 

PTFO 

PDOO 


.0140 

PFICl 

14.6800 

POIC 

PFT I 


263. 1400 

POTI 

210.5800 

TFi 

TC2 


72.1239 

TC3 

71.6372 

TC4 



.0000 


.0000 




.0000 

TFO I 

55.5454 

TOOI 



.0000 


.0000 


WOT 


.0020 


.0000 




.0000 


.0000 



~ 2.1000 — SEC 


506.0000 

PFI 

263.1300 

POI 

210.3300 

262.2400 

PTOO 

210. 1700 

PDFO 

.0060 

14.6200 

PFIC2 

14.5800 

ss 

3528.5000 

58.7727 

TOI 

57.7727 

TCI 

71.2832 

71.4159 

TC5 

72. 1239 

TC6 

71.3274 

.0000 


.0000 


.0000 

55.5454 

TFTI 

56.0909 

TOTI 

55.2727 

.0000 


.0000 

WFT 

.0040 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 

— 2.2000 

i — SEC 




505.6000 

PFI 

263. 1600 

POI 

210.3900 

262.2300 

PTOO 

210.2300 

PDFO 

.0150 

14.6400 

PFIC2 

14.6100 

ss 

3528.0000 

58.9091 

TOI 

57.7273 

TCI 

71.2832 

71.7257 

TC5 

72. 1239 

TC6 

71.4602 

.0000 


.0000 


.0000 

55.6364 

TFTI 

55.9091 

TOTI 

55.0909 

.0000 


.0000 

WFT 

.0040 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 

-- 2.3000 

i — SEC 




505.5000 

PFI 

263. 1300 

POI 

210.3600 

262.2300 

PTOO 

210. 1800 

PDFO 

.0100 

14.5900 

PFIC2 

14.6200 

SS 

3527.6000 

58.9091 

TOI 

57.6818 

TCI 

71.2832 

71.5044 

TC5 

72. 1239 

TC6 

71.2389 

.0000 


.0000 


.0000 

55.4545 

TFTI 

56.0000 

TOTI 

54.9091 

.0000 


.0000 

WFT 

.0040 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 



9£-£V 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 2.4000 -- SEC 




F 


.0040 

PC 

14.6400 

FV 


505.6000 

PFI 

263.1700 

POI 

210.3800 

PFI I 


409.5000 

POII 

210.8500 

PTF 0 


262.3600 

PTOO 

210.2100 

PDFO 

.0060 

PDOO 


.0140 

PFIC1 

14.6700 

POIC 


14.6200 

PFIC2 

14.6200 

SS 

3527.4000 

PFT I 


263.2100 

POT I 

210. 5900 

TFI 


58.9091 

TOI 

57.8636 

TCI 

71.3717 

TC2 


72.2124 

TC3 

71.6814 

TC4 


71.6372 

TC5 

72.1239 

TC6 

71.3274 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.5454 

TOOI 


55.5454 

TFT I 

56.0000 

TOT I 

55.1818 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0040 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 2.5000 

l — SEC 




F 


.0040 

PC 

14.7200 

FV 


505. 7000 

PFI 

263.2200 

POI 

210.3700 

PFII 


409.5000 

POII 

210.9200 

PTFO 


262.3900 

PTOO 

210.2400 

PDFO 

.0100 

PDOO 


.0170 

PFIC1 

14.7200 

POIC 


14. 6500 

PFIC2 

14.6400 

SS 

3527.1000 

PFT I 


263.2400 

POTI 

210.6100 

TFI 


58.9545 

TOI 

58.0454 

TCI 

71.4159 

TC2 


72.2566 

TC3 

71.7257 

TC4 


71.5487 

TC5 

72. 1239 

TC6 

71.5044 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.6364 

TOOI 


55.6364 

TFT I 

55.9091 

TOT I 

55.2727 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0060 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 2.6000 

i — SEC 




F 


20.7850 

PC 

14.6900 

FV 


506. 1000 

PFI 

263.2500 

POI 

210.3400 

PFII 


263.0800 

POII 

409.5000 

PTFO 


409.5000 

PTOO 

210.2500 

PDFO 

.0100 

PDOO 


.0130 

PFIC1 

14.7200 

POIC 


14.5700 

PFIC2 

14.6000 

SS 

3526.3000 

PFT I 


263.2500 

POTI 

. 210.6100 

TFI 


58.7727 

TOI 

57.6818 

TCI 

71.1504 

TC2 


71.9911 

TC3 

71.5929 

TC4 


71.4602 

TC5 

72. 1239 

TC6 

71.3274 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.7273 

TQOI 


55.4545 

TFT I 

55.9091 

TOT I 

55.0000 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0020 


‘ .0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 



A3-37 


BLOCK 

II 

OUTPUT -- 

RUN NO. 

— 001501 

— TIME 

F 


20.7850 

PC 

14.6800 

FV 

PFII 


263.0600 

POII 

409.5000 

PTFO 

PDOO 


.0170 

PFIC1 

14.6700 

POIC 

PFT I 


263.2400 

POT I 

210.5800 

TFI 

TC2 


72.1681 

TC3 

71.6814 

TC4 



.0000 


.0000 




.0000 

TFO I 

55.4545 

TOOI 



.0000 


.0000 


WOT 


.0020 


.0000 




.0000 


.0000 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

F 


6.9870 

PC 

14.7100 

FV 

PFII 


262.9800 

POII 

211.0500 

PTFO 

PDOO 


.0150 

PFIC1 

14.6600 

POIC 

PFT I 


263.2400 

POTI 

210.6100 

TFI 

TC2 


72.2566 

TC3 

71.7257 

TC4 



.0000 


.0000 




.0000 

TFO I 

55.6364 

TOOI 



.0000 


.0000 


WOT 


.0040 


.0000 




.0000 


.0000 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

F 


.0040 

PC 

14.7000 

FV 

PFII 


263.0300 

P3II 

210.9500 

PTFO 

PDOO 


.0150 

PFIC1 

14.6900 

POIC 

PFT I 


263.2300 

POTI 

210.6100 

TFI 

TC2 


72.0354 

TC3 

71.7257 

TC4 



.0000 


.0000 




.0000 

TFO I 

55.7273 

TOOI 



.0000 


.0000 


WOT 


.0020 


.0000 




.0000 


.0000 



— 2.7000 ~ SEC 


506.5000 

PFI 

263.2400 

POI 

210.3300 

409.5000 

PTOO 

210.3700 

PDFO 

.0260 

14.6100 

PFIC2 

14.6200 

SS 

3525.7000 

58.6818 

TOI 

57.7727 

TCI 

71.3274 

71.4159 

TC5 

71.9911 

TC6 

71.3274 

.0000 


.0000 


.0000 

55.4545 

TFTI 

55.9091 

TOT I 

55.0909 

.0000 


.0000 

WFT 

.0040 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 


— 2.8000 — SEC 


506.2000 

PFI 

263.2700 

POI 

210.2500 

275.6400 

PTOO 

210.2700 

PDFO 

.0090 

14.6400 

PFIC2 

14.6500 

SS 

3526.9000 

58.7727 

TOI 

57.8636 

TCI 

71.3274 

71.6814 

TC5 

72.1239 

TC6 

71.3274 

.0000 


.0000 


.0000 

55.6364 

TFTI 

55.9091 

TOT I 

55.7273 

.0000 


.0000 

WFT 

.0080 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 


— 2.9000 — SEC 


505.5000 

PFI 

263.2800 

POI 

210.3800 

262.3200 

PTOO 

210.2000 

PDFO 

.0070 

14.6200 

PFIC2 

14.6500 

SS 

3527.0000 

58.9545 

TOI 

57.9091 

TCI 

71.5044 

71. 5487 

TC5 

72. 1239 

TC6 

71.4159 

.0000 


.0000 


.0000 

55.4545 

TFTI 

56.0000 

TOT I 

55.2727 

.0000 


.0000 

WFT 

.0080 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 



A3-38 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 3.0000 

— SEC 




F 


27.7270 

PC 

14.6900 

FV 


506.5000 

PFI 

263.2000 

POI 

210.3600 

PFI I 


263.0000 

POII 

210.8600 

PTFO 


262.3200 

PTOO 

305.3200 

PDFO 

.0080 

PDOO 


.0150 

PFIC1 

265.2100 

PQIC 


14. 6300 

PFIC2 

14.6700 

SS 

3534.9000 

PFT I 


263.2100 

PQTI 

210.6200 

TFI 


58.8182 

TOI 

57.6364 

TCI 

71.2832 

TC2 


72.1681 

TC3 

71.7699 

TC4 


71. 5044 

TC5 

72.0796 

TC6 

71.3274 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFOI 

55.5454 

TOQI 


55.6364 

TFTI 

55.8182 

TOT I 

55.0000 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0020 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.2000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

c 

— 3.1000 

' — SEC 




F 


27.7200 

PC 

237.3400 

FV 


506.6000 

PFI 

263.3200 

POI 

210.4100 

PFI I 


263.0000 

POII 

210.9300 

PTFO 


262.2800 

PTOO 

305.2900 

PDFO 

.0080 

PDOO 


.0200 

PFIC1 

265.2400 

POIC 


14.6700 

PFIC2 

14.6700 

SS 

3535.9000 

PFTI 


263.2300 

POTI 

210.5600 

TFI 


58.7727 

TOI 

57.7727 

TCI 

71.3274 

TC2 


72.1681 

TC3 

71.6372 

TC4 


71.7257 

TC5 

72.1239 

TC6 

71.4159 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFOI 

55.6364 

TOOI 


55.7273 

TFTI 

56.0909 

TOTI 

55.4545 



.0000 


.0000 



.0000 


.0000 

WFT 

.0080 

WOT 


.0040 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

c 

— 3.2000 

i — SEC 




F 


.0000 

PC 

237.3800 

FV 


505.9000 

PFI 

263.3200 

POI 

210.3800 

PFI I 


262.9800 

POII 

210.9100 

PTFO 


262.3000 

PTOO 

210.2400 

PDFO 

.0090 

PDOO 


19.2340 

PFIC1 

42.1600 

POIC 


14.6900 

PFIC2 

14.6800 

SS 

3536.2000 

PFTI 


263.2400 

POTI 

210.6400 

TFI 


58. 8636 

TOI 

57.9091 

TCI 

71.5044 

TC2 


72.2566 

TC3 

71.7257 

TC4 


71.5487 

TC5 

72. 1239 

TC6 

71.4602 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFOI 

55.6364 

TOOI 


55.8182 

TFTI 

56.0909 

TOTI 

55.3636 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0080 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.2000 



A3- 3 9 


BLOCK 

II 

OUTPUT — 

RUM NO. 

— 001501 

— TIME 

F 


.0000 

PC 

14.7600 

FV 

PFI I 


263.0800 

PD 1 1 

210.8800 

PTFO 

PD 00 


19.2360 

PFICi 

14.7100 

POIC 

PFT I 


263.2400 

POTI 

210.5900 

TFI 

TC2 


72.1681 

TC3 

71.6814 

TC4 



.0000 


.0000 




.0000 

TFO I 

55.4545 

TQOI 



.0000 


.0000 


WOT 


.0040 


.0000 




.0000 


.0000 


BLOCK 

II 

OUTPUT — 

RUN MO. 

— 001501 

— TIME 

F 


.0000 

PC 

14.7400 

FV 

PFII 


263.0800 

POII 

210.8400 

PTFO 

PD 00 


10.0880 

PFICI 

14.7100 

POIC 

PFT I 


263.2300 

POTI 

210.5800 

TF I 

TC2 


72.3451 

TC3 

71.7699 

TC4 



.0000 


.0000 




.0000 

TFOI 

55.4545 

TOOI 



.0000 


.0000 


WOT 


.0080 


.0000 




.0000 


.0000 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 


C — 3.3000 — SEC 


505.5000 

PFI 

409.5000 

POI 

210.3500 

262.3900 

PTOO 

210. 1700 

PDFO 

.0060 

14.6600 

PFIC2 

14.6400 

SS 

3535.9000 

58.6818 

TOI 

57.9091 

TCI 

71.3274 

71.4159 

TC5 

72.1681 

TC6 

7 1.1947 

.0000 


.0000 


.0000 

55.4545 

TFTI 

55.9091 

TOT I 

55.0000 

.0000 


.0000 

WFT 

.0040 

.0000 


.0000 


.0000 

.0000 


.0000 

RUN NO 

1501.0000 

— 3.400C 

1 — SEC 




505.6000 

PFI 

409. 5000 

POI 

210.3400 

262.3100 

PTOO 

210.2100 

PDFO 

15.6200 

14.6400 

PFIC2 

14.6200 

SS 

3536.1000 

58.6818 

TOI 

57.8636 

TCI 

71.3274 

71.4602 

TC5 

72.1239 

TC6 

71.2832 

.0000 


.0000 


.0000 

55.6364 

TFTI 

55.9091 

TOT I 

55.3636 

.0000 


.0000 

WFT 

.0040 

.0000 


.0000 


.0000 

.0000 


.0000 

RUN NO 

1501.0000 


C — 3.5000 — SEC 


F 

.0000 

PFI I 

263.0100 

PDOO 

.0220 

PFT I 

263.2400 

TC2 

72.4779 


.0000 


.0000 


.0000 

WOT 

.0020 


.0000 


PC 

14.7100 

PD 1 1 

210.9100 

PFICi 

14.6400 

POTI 

210.6100 

TC3 

71.9469 


.0000 

TFO I 

55.6364 


.0000 


.0000 


.0000 


FV 

505.9000 

PTFO 

262.3300 

POIC 

14.6400 

TFI 

58.8182 

TC4 

71.5929 


.0000 

TOOI 

55.9091 


.0000 


.0000 


.0000 


PFI 

263.4200 

PTOO 

210.2100 

PFIC2 

14.6500 

TOI 

57.8182 

TC5 

72.1681 


.0000 

TFTI 

56.4545 


.0000 


.0000 


.0000 


POI 

210.4000 

PDFO 

15.6710 

SS 

3536.1000 

TCI 

71.3717 

TC6 

71.4159 


.0000 

TOT I 

55.7273 

WFT 

.0080 


.0000 

RUNNO 

1501.0000 



A3-40 


BLOCK 

II OUTPUT ~ 

RUM NO. 

— 001501 

~ TIME 

C — 3.6000 

i — SEC 




F 

.0000 

PC 

14.7100 

FV 

505.5000 

PFI 

263.3000 

POI 

210.3500 

PFII 

262.9900 

POII 

210.8600 

PTFO 

262.3300 

PTOO 

210.2300 

PDFD 

.8830 

PDOO 

.0170 

PFIC1 

14.7300 

POIC 

14.6100 

PFIC2 

. 14.6100 

SS 

3535.5000 

PFT I 

263.2200 

POT I 

210.6100 

TFI 

58.7727 

TGI 

57.8636 

TCI 

71.6814 

TC2 

72.2124 

TC3 

71.7699 

TC4 

71.1504 

TC5 

71.9911 

TC6 

71.1504 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.5454 

TOOI 

55.5454 

TFTI 

56.2727 

TOT I 

55.0909 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

. 

.0000 

RUNNO 

1501.0000 


BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

C 

~ 3.7000 

— SEC 




F 


.0000 

PC 

14.6500 

FV 


505.9000 

PFI 

263.2200 

POI 

210.3400 

PFII 


262.9600 

POII 

210.8400 

PTFO 


262.2800 

PTOO 

210.2000 

PDFO 

.0150 

PDOO 


.0160 

PFIC1 

14.6800 

POIC 


14.6000 

PFIC2 

14.6100 

SS 

3535.6000 

PFT I 


263.2000 

POTI 

210.5600 

TFI 


58.7273 

TOI 

57.7273 

TCI 

71.3274 

TC2 


72.0796 

TC3 

71.6814 

TC4 


71.4602 

TC5 

72. 1239 

TC6 

71.2832 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.4545 

TOOI 


55.4545 

TFTI 

55.9091 

TOT I 

55.1818 



.0000 


.0000 



.0000 


♦ 0000 

WFT 

.0040 

WOT 


.0040 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1500.6000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 3.8000 

~ SEC 





F 

.0010 

PC 

14.7200 

FV 

505.8000 

PFI 

2 63.2500 

POI 

409.5000 

PFII 

262.9900 

POII 

210.9800 

PTFO 

262.3100 

PTOO 

210.2500 

PDFO 

.0130 

PDOO 

.0190 

PFIC1 

14.6600 

POIC 

14.6700 

PFIC2 

14.6500 

SS 

3535.7000 

PFT I 

263.2100 

POTI 

210.5900 

TFI 

58.6818 

TOI 

57.8182 

TCI 

71.4159 

TC2 

72.3451 

TC3 

71.8584 

TC4 

71. 5044 

TC5 

72.0354 

TC6 

71.2389 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

5 5.5454 

TOOI 

55.5454 

TFTI 

56.0000 

. TOT I 

55.3636 


.0000 


.0000 

* 

.0000 


.0000 

WFT 

.0040 

WOT 

.0040 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-r41 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 3.9000 

— SEC 




F 


.0000 

PC 

14.7200 

FV 


505.5000 

PFI 

263. 2400 

POI 

409.5000 

PFII 


262.9900 

PQ II 

210.9300 

PTFQ 


262.2800 

PTOQ 

210.2100 

PDFO 

.0110 

PDOO 


.0150 

PFIC1 

14.7000 

POIC 


14.5900 

PFIC2 

14.6500 

SS 

3535.3000 

PFT 1 


263.2200 

POTI 

210.6000 

TFI 


58.8636 

TOI 

57.8182 

TCI 

71.5487 

TC2 


72.1239 

TC3 

71.6814 

TC4 


71.3717 

TC5 

72.1239 

TC6 

71.4159 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFOI 

55.5454 

TOOI 


55.4545 

TFT I 

56.0000 

TOT I 

55.0909 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0020 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 4.0000 

— SEC 





F 

.0040 

PC 

14.6800 

FV 

505. 8000 

PFI 

263.2100 

POI 

210.4800 

PFII 

262.9500 

POII 

210.8300 

PTFQ 

262.2700 

PTOO 

210.1500 

PDFO 

.0060 

PDOO 

.0120 

PFIC1 

14.6900 

POIC 

14.5600 

PFIC2 

264.9300 

SS 

3535.2000 

PFT I 

263.2700 

POTI 

210.5800 

TFI 

58.7273 

TOI 

57.6818 

TCI 

71.4602 

TC2 

72. 1681 

TC3 

71.7257 

TC4 

71.4159 

TC5 

72.0354 

TC6 

71.0177 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.4545 

TOQI 

55.4545 

TFTI 

55.9091 

TOT I 

55.0000 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0060 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C — 4.100C 

l — SEC 




F 

.0060 

PC 

14.7100 

FV 

505. 8000 

PFI 

263.1500 

POI 

210.4800 

PFII 

262.9500 

POII 

210.8900 

PTFO 

262.2800 

PTOO 

210.2400 

PDFO 

.0090 

PDOO 

.0150 

PFIC1 

14.6700 

POIC 

14.6500 

PFIC2 

265.0200 

SS 

3535.8000 

PFT I 

263.2600 

POTI 

210.5500 

TFI 

58.5909 

TOI 

57.7273 

TCI 

71.4602 

TC2 

72.2124 

TC3 

71.7699 

TC4 

71.5487 

TC5 

72. 1681 

TC6 

71.2832 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.4545 

TOOI 

55.4545 

TFTI 

55.9091 

TOT I 

55.3636 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0040 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-42- • 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME C 

— 4.2000 

1 — SEC 




F 

.0050 

PC 

14.7000 

FV 

505.6000 

PFI 

263.2400 

POI 

210.3700 

PFI I 

262.9300 

POII 

210.8900 

PTFO 

262.3100 

PTOO 

210.2300 

POFO 

.0100 

PDOO 

.0160 

P.FIC1 

14.6900 

P0I3 

14.6400 

PFIC2 

15.5000 

ss 

3535.7000 

PFT I 

263.1900 

POT I 

210.6200 

TFI 

58.8182 

TOI 

57.6818 

TCI 

71.3717 

TC2 

72.2566 

TC3 

71.8142 

TC4 

71.5044 

TC5 

71.9911 

TC6 

71.3717 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.6364 

TOOI 

55.5454 

TFTI 

55.9091 

TOTI 

55.0000 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

HOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUN NO 

1501.0000 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 4.3000 

— SEC 




F 

.0050 

PC 

14.6800 

FV 

505.8000 

PFI 

263. 1900 

POI 

210.3200 

PFI I 

262.9400 

POII 

210.8300 

PTFO 

262.2600 

PTOO 

210. 1700 

PDFO 

.0060 

PDOO 

.0130 

PFIC1 

14.6800 

POIC 

14.5400 

PFIC2 

14.6100 

SS 

3535.5000 

PFT I 

263.1600 

PQTI 

210.5900 

TFI 

58.7727 

TOI 

57.6818 

TCI 

71.4602 

TC2 

72.0796 

TC3 

71.5929 

TC4' 

71.4602 

TC5 

71.9469 

TC6 

70.9734 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.5454 

TOOI 

55.4545 

TFTI 

55.9091 

TOTI 

55.0909 


.0000 


.0000 


.0000 


.0000 

WFT 

.0000 

HOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 4.400C 

I — SEC 




F 

.0060 

PC 

14.6800 

FV 

505.9000 

PFI 

263. 1900 

POI 

210.4000 

PFI I 

262.9200 

POII 

210. 8800 

PTFO 

262.2500 

PTOO 

210.2200 

PDFO 

.0060 

PDOO 

.0180 

PFIC 1 

14.7400 

POIC 

14.6600 

PFIC2 

14.6600 

SS 

3535.8000 

PFT I 

263.1300 

POT I 

21Q.5800 

TFI 

58.7727 

TOI 

57.7273 

TCI 

71.4159 

TC2 

72.2124 

TC3 

71.6814 

TC4 

71.5929 

TC5 

72.1239 

TC6 

71.1947 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.6364 

TOOI 

55.6364 

TFTI 

56.0909 

TOTI 

55.3636 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0040 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-43 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 4.5000 

— SEC 




F 


.0050 

PC 

14.7100 

FV 


505.7000 

PFI 

263.2000 

POI 

210.4000 

PFI I 


262.9000 

poll 

211.0000 

PTF 0 


262.3300 

PTOO 

210.2200 

PDFO 

.0100 

PDOO 


.0170 

PF1C1 

14.7300 

POIC 


14.6600 

PFIC2 

14.7000 

ss 

3536.9000 

PFT I 


263.2700 

POTI 

210.6100 

TFI 


58.9545 

T 01 

57.9091 

TCI 

71.6372 

TC2 


72. 1681 

TC3 

71 .6372 

TC4 


71.4159 . 

TC5 

72. 1239 

TC6 

71.3717 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.8182 

TOOI 


55.3636 

TFTI 

55.9091 

TOT I 

55.1818 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0020 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT -- 

RUN NO. 

— 001501 

— TIME 

C 

— 4.6000 

' — SEC 




F 


.0080 

PC 

14.7000 

FV 


505.6000 

PFI 

263.2200 

POI 

210.3600 

PFI I 


262.9400 

POII 

210.8700 

PTFO 


262.2500 

PTOO 

210.1800 

PDFO 

.0080 

PDOO 


.0140 

PFIC1 

14.6500 

POIC 


14.6400 

PFIC2 

14.6800 

ss 

3535.6000 

PFT I 


263.1500 

POTI 

210.5800 

TFI 


58.8636 

T 01 

57.5455 

TCI 

71.4602 

TC2 


72.1681 

TC3 

71.9027 

TC4 


71.4602 

TC5 

71.9469 

TC6 

71.2389 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.5454 

TOOI 


55.4545 

TFTI 

55.9091 

TOT I 

55.0000 



.0000 


.0000 



.0000 


.0000 

WFT 

.0000 

WOT 


.0020 


.0000 



^.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

— 4.7000 

— SEC 




F 


.0080 

PC 

14.6900 

FV 


506.0000 

PFI 

263.2100 

POI 

210.3800 

PFI I 


262.9000 

POII 

210.9300 

PTFO 


262.2700 

PTOO 

210.2300 

PDFO 

.0070 

PDOO 


.0200 

PFIC1 

14.7100 

POIC 


14.6300 

PFIC2 

14.6400 

ss 

3535.2000 

PFT I 


263.1500 

POTI 

210.5800 

TFI 


59.0454 

T 01 

57.8636 

TCI 

71.4159 

TC2 


72.1239 

TC 3 

71.6814 

TC4 


71.5044 

TC5 

72.1239 

TC6 

71.1947 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.6364 

TOOI 


55.4545 

TFTI 

56.0000 

TOT I 

55.3636 



.0000 


.0000 



.0000 


.0000 

WFT 

.0080 

WOT 


.0020 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 



A3-44 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 4.8000 

— SEC 




F 

.0070 

PC 

14.7200 

F V 

506. 0000 

PFI 

263.2000 

POI 

210.4500 

PFI I 

262.9400 

POII 

210.9600 

PTFO 

262.2700 

PTOO 

2 10.2400 

PDFO 

.0100 

PDOO 

.0180 

PFIC1 

14.7100 

POIC 

14.6600 

PFIC2 

14.6500 

SS 

3534.9000 

PFI I 

263.1600 

POTI 

210.6100 

TFI 

58. 8636 

TQI 

57.8182 

TCI 

71.5929 

TC2 

72.1681 

TC3 

71.5929 

TC4 

71. 7257 

TC5 

72.2124 

TC6 

71.4602 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.7273 

TOQI 

55.8182 

TFTI 

56.1818 

TOT I 

55.4545 


.0000 


.0000 


.0000 


.0000 

WFT 

.0120 

WOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK 

II OUTPUT — 

RUN ND. 

~ 001501 

— TIME 

C — 4.9000 

1 -- SEC 




F 

.0060 

PC 

14.7200 

FV 

505.7000 

PFI 

263. 1900 

POI 

210.4000 

PFI I 

262.9300 

POII 

210.9100 

PTFO 

262.2200 

PTOO 

210.2100 

PDFO 

.0060 

PDOO 

.0160 

PFIC1 

14.7000 

POIC 

14.6100 

PFIC2 

14.6400 

SS 

3535.0000 

PFT I 

263.1500 

POTI 

210.6100 

TFI 

58. 9091 

TOI 

57.8636 

TCI 

71-4602 

TC2 

72.2566 

TC3 

71.8142 

TC4 

71.5044 

TC5 

72.0796 

TC6 

71.0619 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.6364 

TOOI 

55.5454 

TFTI 

56.0000 

TOT 1 

55.0909 


.0000 


.0000 


.0000 


.0000 

WFT 

.0040 

WOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 


BLOCK 

11 OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 5.0000 

1 — SEC 




F 

.0040 

PC 

14.6600 

FV 

506.1000 

PFI 

263. 1500 

POI 

210.3700 

PFII 

262.9200 

POII 

210.8400 

PTFO 

262.2300 

PTOO 

210.2200 

PDFO 

.0050 

PDOO 

.0170 

PFIC1 

14.6700 

POIC 

14.5900 

PFIC2 

14.5800 

SS 

3530.5000 

PFT I 

263.1300 

POTI 

210.6200 

TFI 

59.1364 

TOI 

57.8636 

TCI 

71.3717 

TC2 

72.1239 

TC3 

71.7257 

TC4 

71.4159 

TC5 

72.0354 

TC6 

71.1062 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.5454 

TOOI 

55.4545 

TFTI 

55.9091 

TOT I 

55.0000 


.0000 


.0000 


.0000 


.0000 

WFT 

.0000 

WOT 

.0020 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-45 


BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

C 

— 5.1000 

— SEC 




F 


.0080 

PC 

14.6700 

FV 


506. 0000 

PFI 

263.1900 

POI 

210.3600 

PFI I 


262.8900 

POII 

210.9100 

PTFO 


262.2000 

PTOO 

210.2300 

PDFO 

.0040 

pooa 


.0150 

PFIC1 

14.6700 

POIC 


14.6500 

PFIC2 

14.6200 

SS 

3532.0000 

PFT I 


263.1500 

POT I 

210.6000 

TFI 


58.9091 

T 01 

58.0000 

TCI 

71.6372 

TC2 


72.2124 

TC3 

71.8142 

TC4 


71.5929 

TC5 

72.0796 

TC6 

71.4159 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.7273 

TQOI 


55.8182 

TFTI 

56.0909 

TOT I 

55.3636 



.0000 


.0000 



.0000 


.0000 

WFT 

.0040 

WOT 


.0040 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C 

-- 5.2000 

' — SEC 




F 


.0090 

PC 

14.7300 

FV 


506.0000 

PFI 

263.1800 

POI 

210.3900 

PFII 


262.9300 

POII 

210.9100 

PTFO 


262.2500 

PTOO 

210.2100 

PDFO 

.0060 

PDOO 


.0190 

PFIC1 

14.7100 

POIC 


14.6300 

PFIC2 

14.6600 

SS 

3531.5000 

PFT I 


263.2300 

POTI 

210.6100 

TFI 


59.0000 

TOI 

57.8182 

TCI 

71.4602 

TC2 


71.9911 

TC3 

71.6814 

TC 4 


71.4159 

TC5 

72.0796 

TC6 

71.2832 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.9091 

TOOI 


55.5454 

TFTI 

56.0909 

TOTI 

55.1818 



.0000 


.0000 



.0000 


.0000 

WFT 

.0120 

WOT 


.0020 


• .0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

c 

— 5.2320 

i — SEC 




F 


• 0060 

PC 

14.6300 

FV 

3435.0000 

PFI 

263.2100 

POI 

210.4800 

PFII 


262.9600 

POII 

210.9300 

PTFO 


262.2100 

PTOO 

210.1800 

PDFO 

.0060 

PDOO 


.0130 

PFIC1 

14.6800 

POIC 


14.6100 

PFIC2 

14.6300 

SS 

3535.0000 

PFT I 


263.1200 

POTI 

210.5900 

TFI 


58.8182 

TOI 

57.7273 

TCI 

71.4159 

TC2 


72.1239 

TC3 

71.8142 

TC4 


71.4602 

TC5 

72. 1239 

TC6 

71.1062 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

55.2727 

TOOI 


55.4545 

TFTI 

56.1818 

TOTI 

54.9091 



.0000 


.0000 



.0000 


.0000 

WFT 

.2680 

WOT 


1.0980 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 



9*-£V 


BLOCK 

III OUTPUT - 

- RUN NO 

. -- 001501 

-- TIME 

C — 5.2320 — 

SEC 

-- TIME R 

' s "" 0 

0000 — SEC 

WDOTO 

.0092 

PNS 

14.6200 

PC 

14.6300 

F 


.0060 

ISP 

.5671 

WDOTF 

.0014 

CSTAR 

18904.2087 

CF 

.0010 

MR 


6.6822 

zox 

.9892 

WDOTT 

.0106 

DCSTAR 

.0000 

YF 

1.0000 

YO 


1.0000 

ZF 

1.0110 

IT 

.0000 

INPNS 

.0000 

MO 

.0000 

MF 


.0000 

GAMMAO 

1.4309 

GAMMAF 

1.4094 










BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 — TIME 

C — 5.3320 — SEC 




F 

7.0080 

PC 

15.9400 

FV 

3505.6000 

PFI 


213.6000 

POI 

180.9000 

PFII 

256.8000 

POII 

209.8100 

PTFQ 

252.3500 

PTOO 


197.0000 

PDFO 

19.9030 

PDOO 

6.7100 

PFIC1 

52.9200 

POIC 

43.2600 

PFIC2 


51.4200 

ss 

3539.6000 

PFT I 

258.1600 

POTI 

210.2400 

TFI 

58.8182 

TOI 


57.8182 

TCI 

71.2389 

TC2 

72.2124 

TC3 

72.4336 

TC4 

76.9911 

TC5 


73.2301 

TC6 

72.1681 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 

TFO I 

55.4545 

TODI 

55.5454 

TFTI 


56.0909 

TOT I 

55.2727 


.0000 


.0000 


.0000 



.0000 

WFT 

.2080 

WOT 

.4500 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

RUN NO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO 

. — 001501 

— TIME 

C — 5.3320 — 

sec 

— TIME R 

* 

1000 — SEC 

WDOTO 

.2003 

PNS 

15.9291 

PC 

15.9400 

F 


7.0080 

ISP 

25.3663 

WDOTF 

.0760 

CSTAR 

788.7946 

CF 

1.0340 

MR 


2.6358 

ZOX 

.9899 

WDOTT 

.2763 

DCSTAR 

.0000 

YF 

.9764 

YO 


.9899 

ZF 

1.0106 

IT 

.1827 

INPNS 

1.4833 

MO 

.0032 

MF 


.0015 

GAMMAO 

1.4286 


GAMMAF 1.4094 



A3-47 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 - 

— TIME 

F 

7.0650 

PC 

15.5900 

FV 

PFII 

241.4200 

POII 

193.8300 

PTF 0 

PDQO 

27.7020 

PFIC1 

46. 1600 

POIC 

PFT I 

244.9300 

POT I 

200.4700 

TFI 

TC2 

71.6814 

TC 3 

72.7434 

TC4 


.0000 


.0000 



.0000 

TFD I 

55.0000 

TOQI 


.0000 


.0000 


WOT 

7.7820 


.0000 



.0000 


.0000 


BLOCK 

III OUTPUT — RUN NO 

. — 001501 

— TIM! 

WDOTO 

.3881 

PNS 

15.5794 

PC 

WDOTF 

.1027 

CSTAR 

434.2937 

CF 

WDOTT 

.4908 

DC ST AR 

.0000 

YF 

IT 

.9224 

INPNS 

3.0545 

MO 

GAMMAF 

1.4094 




BLOCK 

IV OUTPUT — 

RUN NO. 

— 001501 - 

- TIME 

F 

7.0650 

FSTD 

13.6078 


ISP 

14.3958 

ISPS 

118.8784 


WOOTT 

.4908 

WDOTTS 

.1145 


WDOTO 

.3881 

WDOTOS 

.0939 


WDOTF 

.1027 

WDOTFS 

.0206 


MR 

3.7787 

MRS 

4.5607 


PC 

15.5900 

PCS 

30.0000 


CSTAR 

434.2937 

CSTASD 

418.7789 


CSTAT 

7980.0314 

CSTATS 

7694.9526 


ETAC 

.0544 

ETACS 

.0544 



C — 5.4320 -- SEC 


3495. 8000 

PFI 

199.7100 

POI 

171.9500 

237. 1200 

PTOO 

191.7000 

PDFO 

40.9500 

41.7200 

PFIC2 

46.0700 

SS 

3539.4000 

57.4091 

TOI 

57.3636 

TCI 

71.3274 

92.4336 

TC5 

73.8938 

TC6 

72.8761 

.0000 


.0000 


.0000 

55.4545 

TFTI 

55.9091 

TOT I 

55.3636 

.0000 


.0000 

WFT 

12. 1280 

.0000 


.0000 


.0000 

.0000 


.0000 

RUNNO 

1501.0000 

C — 5.4320 — SEC 

— TIME R 

* 

2000 — SEC 

15.5900 

F 

7.0650 

ISP 

14.3958 

1.0658 

MR 

3.7787 

zox 

.9901 

.9484 

YO 

.9569 

ZF 

1.0099 

.0383 

MF 

.0115 

GAMMAO 

1.4277 


— 5.4320 — SEC 

— TIME R 

• 

2000 — SEC 

CF 

1.0658 

CFSTD 

1.0660 

CFSV 

1.4857 

CFNSV 

1.4860 

ECFS 

.7174 

ECFSTD 

.7174 

TDD 

55.4545 

TODS 

67.0000 

TFD 

55.0000 

TFDS 

67.0000 

POD 

163.9980 

PODS 

40.0000 

PFD 

196.1700 

PFDS 

40.0000 

AE 

2.1275 

PAB 

.0000 

AT 

.4255 

ATT C 

.4255 

PCCI 

3.5897 

PCCI A 

3.5064 



■ A3-48 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 5.5320 

i — SEC 




F 


7.3080 

PC 

15.6100 

FV 

3493.4000 

PFI 

204.9200 

POI 

171.1400 

PFII 


248.4800 

PD 1 1 

196.3000 

PTFO 

243. 7100 

PTOO 

191.3400 

PDFO 

40.9500 

PDOO 


28.1060 

PFIC1 

47.0900 

poi: 

41.9200 

PFIC2 

46.8600 

SS 

500.4000 

PFTI 


254.6000 

POT I 

200.8700 

TFI 

56. 0909 

TOI 

56.5454 

TCI 

71.2832 

TC2 


71.0177 

TC3 

72.5221 

TO 4 

107.9412 

TC5 

73.4513 

TC6 

72.2124 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFO I 

54.0000 

TOOI 

54.6364 

TFTI 

55.4545 

TOT I 

54.5455 



.0000 


.0000 


.0000 


.0000 

WFT 

51.9440 

WOT 


17.6100 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT - 

- RUN NO. 

— 001501 

— TIME 

C — 5.5320 — SEC 

— TIME R 

— 

.3000 — SEC 

WDOTO 


.3906 

PNS 

15.5994 

PC 

15.6100 

F 

7.3080 

ISP 

14.7663 

WDOTF 


.1044 

CSTAR 

431.2108 

CF 

1.1010 

MR 

3. 7425 

zox 

.9901 

WDOTT 


.4949 

DC ST AR 

.0000 

YF 

.9498 

YO 

.9562 

ZF 

1.0102 

IT. 


1.6276 

INPNS 

4.6133 

MO 

.0771 

MF 

.0218 

GAMMAO 1.4278 

GAMMAF 


1.4095 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

-- 001501 

-- TIME 

C — 5.5320 

— SEC 

— TIME R ■ 

• 

3000 — SEC 


F 

v 7.3080 

FSTD 

14.0584 

CF 

1.1010 

CFSTD 

1.1013 

ISP 

14.7663 

ISPS 

122.1122 

CFSV 

1.4856 

CFNSV 

1.4861 

WDOTT 

.4949 

WDOTTS 

.1151 

ECFS 

.7411 

ECFSTD 

.7411 

WDOTO 

.3906 

WDOTOS 

.0949 

TOD 

54.6364 

TODS 

67.0000 

WDOTF 

.1044 

WDOTFS 

.0202 

TFD 

54.0000 

TFOS 

67.0000 

MR 

3.7425 

MRS 

4.6992 

POD 

163.2340 

PODS 

40.0000 

PC 

15.6100 

PCS 

30.0000 

PFD 

202.7600 

PFDS 

40.0000 

CSTAR 

431.2108 

CSTASD 

412.4329 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7992.8531 

CSTATS 

7644.7888 

AT 

.4255 

ATT C 

.4255 

ETAC 

.0539 

ETACS 

.0539 

PCCI 

3.5548 

PCCI A 

3.4731 



A3-49 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C — 5.6320 — SEC 




F 


7.3620 

PC 

15.6700 

FV 

3495.6000 

PFI 

214. 1400 

POI 

172.9100 

PFII 


259.5800 

pon 

197.4100 

PTFO 

254.5900 

PTOO 

193.4500 

PDFO 

40.9500 

PDOO 


28.3870 

PFICl 

49.0800 

POIC 

42.0300 

PFIC2 

48.6700 

SS 

500.6000 

PFT I 


264.7100 

POTI 

203.6100 

TFI 

55.8636 

TOI 

56.0909 

TCI 

71.0619 

TC2 


70.2655 

TO 3 

72.5221 

TC4 

119.9160 

TC5 

73.0088 

TC6 

72.0354 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFOI 

53.6364 

TOOI 

54.3636 

TFTI 

■55.4545 

TOT I 

54.4545 



.0000 


.0000 


.0000 


.0000 

WFT 

81.8560 

WOT 


20.6640 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

HI 

OUTPUT - 

- RUN NO 

. -- 001501 

— TIME 

C — 5.6320 — SEC 

— TIME R 

• 

4000 — SEC 

WDOTO 


.3948 

PNS 

15.6593 

PC 

15.6700 

F 

7.3620 

ISP 

14.6732 

WDOTF 


.1069 

CSTAR 

426.9848 

CF 

1. 1049 

MR 

3.6927 

zox 

.9899 

HDOTT 


.5017 

DC STAR 

.0000 

YF 

.9520 

YO 

.9 563 

ZF 

1.0107 

IT 


2.3661 

INPNS 

6.1780 

MO 

.1163 

MF 

.0324 

GAMMAO 

1 .4282 

GAMMAF 


1.4096 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 5.6320 

i — SEC - 

- TIME R - 

.4000 — SEC 


F 

7.3620 

FSTD 

14.1087 

CF 

1.1049 

CFSTD 

1.1053 

ISP 

14.6732 

ISPS 

123. 1487 

CFSV 

1.4856 

CFNSV 

1.4861 

HDOTT 

.5017 

WDOTTS 

.1146 

ECFS 

.7437 

ECFSTD 

.7437 

WDOTO 

.3948 

WDOTOS 

.0949 

TOD 

54.3636 

TODS 

67.0000 

WDOTF 

.1069 

WDOTF S 

.0196 

TFD 

53.6364 

TFDS 

67.0000 

MR 

3.6927 

MRS 

4.8396 

POD 

165.0630 

PODS 

40.0000 

PC 

15.6700 

PCS 

30.0000 

PFD 

213.6400 

PFDS 

40.0000 

CSTAR 

426.9848 

CSTASD 

404.8227 

AE 

2.1275 

PAB 

.0000 

CSTAT 

8010.3242 

CSTATS 

7594.5579 

AT 

.4255 

ATTC 

.4255 

ETAC 

.0533 

ETACS 

.0533 

PCCI 

3.4702 

PCCI A 

3.3924 



A3-50 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 5.7320 — SEC 




F 

7.7950 

PC 

15.7900 

FV 

3497.8000 

PFI 

214.2600 

POI 

175.0500 

PFI I 

258.9600 

POII 

200.0000 

PTFO 

254.2900 

PTOO 

195.7900 

PDFO 

40.9500 

PD 00 

28.7320 

PFIC1 

49.2500 

POIC 

42.8400 

PFIC2 

49.0000 

SS 

500.9000 

PFT I 

261.9900 

POT I 

205.4000 

TFI 

56. 5000 

TOI 

56.1364 

TCI 

71.2389 

TC2 

69.8230 

TO 3 

72.8319 

TC4 

128.9076 

TC5 

73.0088 

TC6 

71.9469 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

54.4545 

TOOI 

54.4545 

TFT I 

55.8182 

TOT I 

54.4545 


.0000 


.0000 


.0000 


.0000 

WFT 

81.4160 

WOT 

20.9460 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT — 

- RUN NO 

. -- 001501 

— TIME 

C ~ 5.7320 -- SEC 

— - TIME 1 

R — 

5000 — SEC 

WDOTO 

.3996 

PNS 

15.7792 

PC 

15.7900 

F 

7.7950 

ISP 

15.3944 

WDOTF 

.1068 

CSTAR 

426.3253 

CF 

1.1610 

MR • 

3.7428 

ZOX 

.9898 

WDOTT 

.5064 

DC STAR 

.0000 

YF 

.9519 

YO 

.9563 

ZF 

1.0106 

IT 

3.1246 

INPNS 

7.7535 

MO 

.1562 

MF 

.0431 

GAMMAQ 

1.4286 

GAHMAF 

1.4095 









BLOCK 

IV OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C — 5.7320 — SEC 

— TIME R 

.5,000 — SEC 

F 

7.7950 

FSTD 

14.8246 



CF 

1.1610 

CFSTD 

1.1613 

ISP 

15.3944 

ISPS 

129.3924 



CF SV 

1.4856 

CFNSV 

1.4861 

WDOTT 

.5064 

WDOTTS 

.1146 



ECFS 

.7815 

ECFSTD 

.7815 

WDOTO 

.3996 

WOOTOS 

.0949 



TOD 

54.4545 

TODS 

67.0000 

WDOTF 

.1068 

WDOTFS 

.0196 



TFD 

54.4545 

TFDS 

67.0000 

MR 

3.7428 

MRS 

4.8336 



POD 

167.0580 

PODS 

40.0000 

PC 

15.7900 

PCS 

30.0000 



PFD 

213.3400 

PFDS 

40.0000 

CSTAR 

426.3253 

CSTASD 

405.2017 



AE 

2.1275 

PAB 

.0000 

CSTAT 

7992.7266 

CSTATS 

7596.7029 



AT 

.4255 

ATT C 

.4255 

ETAC 

.0533 

ETACS 

.0533 



PCCI 

3.4737 

PCCIA 

3.3957 



A3-51 


BLOCK II OUTPUT — RUN NO. — 001501 — TIME C — 5.8320 — SEC 


F 

7.3470 

PC 

15.6700 

FV 

3497.0000 

PFI 

208.8900 

POI 

175.6200 

PFII 

252.6900 

POII 

200.6100 

PTFO 

248.0700 

PTOO 

196.3400 

PDFO 

40.9500 

PDOO 

28.8280 

PF IC1 

47.8100 

POIC 

42.8500 

PFIC2 

47.6 100 

SS 

500.4000 

PFT I 

256.3100 

POTI 

205.8600 

TFI 

56.3182 

TOI 

56.0000 

TCI 

71.3717 

TC2 

69.0708 

TC3 

72.9646 

TC4 

136.0924 

TC5 

72.5664 

TC6 

71.4602 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

54.6364 

TOOI 

54.0909 

TFTI 

56.2727 

TQT I 

53.5454 


.0000 


.0000 


.0000 


.0000 

WFT 

71.0160 

WOT 

19.7560 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNQ 

1501.0000 

BLOCK 

III OUTPUT “ 

- RUN NO 

. — 001501 

— TIME 

C — 5.8320 — SEC 

. — TIME 1 

R — 

6000 — SEC 

WDOTO 

.4010 

PNS 

15.6593 

PC 

15.6700 

F 

7.3470 

ISP 

14.5118 

WDOTF 

.1053 

CSTAR 

423.1496 

CF 

1.1026 

MR 

3.8075 

ZOX 

.9897 

WDOTT ■ 

.5063 

DCSTAR 

.0000 

YF 

.95 07 

YO 

.9563 

ZF 

1.0104 

IT 

3.8831 

INPNS 

9.3272 

MO 

.1962 

MF 

.0 537 

GAM MAO 

1.4287 

GAMMAF 

1.4095 









BLOCK 

IV OUTPUT — 

RUN NO. 

— 001501 - 

- TIME C 

— 5.8320 — SEC 

— TIME R 

.6000 — SEC 

F 

7.3470 

FSTD 

14.0790 



CF 

1.1026 

CFSTD 

1.1029 

ISP 

14.5118 

ISPS 

122.5544 



CFSV 

1.4857 

CFNSV 

1.4861 

WOOTT 

.5063 

WDOTTS 

.1149 



ECFS 

.7422 

ECFSTD 

.7422 

WDOTO 

.4010 

WDOTOS 

.0949 



TOD 

54.0909 

TODS 

67.0000 

WDOTF 

.1053 

WDOTFS 

.0200 



TFD 

54.6364 

TFDS 

67.0000 

MR 

3.8075 

MRS 

4.7515 



POD 

167.5120 

PODS 

40.0000 

PC 

15.6700 

PCS 

30.0000 



PFD 

207.1200 

PFDS 

40.0000 

CSTAR 

423.1496 

CSTASD 

404.8979 



AE 

2.1275 

PAB 

.0000 

CSTAT 

7969.7717 

CSTATS 

7626.0118 



AT 

.4255 

ATTC 

.4255 

ETAC 

.0531 

ETACS 

.0531 



PCCI 

3.4806 

PCCI A 

3.4023 



A3-52 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 5.9320 — SEC 




F 

7. 7390 

PC 

15.6400 

FV 

3495. 60 00 

PFI 

209.9300 

POI 

175.4500 

PFI I 

254.2100 

POII 

200.2200 

PTFO 

249.4700 

PTOQ 

196.0800 

PDFO 

40.9500 

PDOO 

28.6550 

PFIC1 

47.8800 

POIC 

42.9000 

PFIC2 

47.7600 

SS 

500.4000 

PFT I 

258.8200 

POTI 

205.3800 

TFI 

56.1364 

TOI 

55.6818 

TCI 

71.1062 

TC2 

. 68.3186 

TC3 

73.0531 

TC4 

143.0672 

TC5 

72. 1239 

TC6 

71.1062 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

54.5455 

TOOI 

54.0000 

TFTI 

56.2727 

TOT I 

53.0909 


.0000 


.0000 


.0000 


.0000 

WFT 

71.8880 

WOT 

19.2440 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUN NO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO. 

— 001501 

— TIME 

C — 5.9320 — SEC 

— TIME R — 

7000 — SEC 

WDOTO 

.3996 

PNS 

15.6293 

PC 

15.6400 

F 

7.7390 

ISP 

15.3168 

WDOTF 

.1056 

CSTAR 

423.1890 

CF 

1.1637 

MR 

3.7827 

zox 

.9897 

WDOTT 

.5053 

DCSTAR 

.0000 

YF 

.9510 

YO 

.9 565 

ZF 

1.0104 

IT 

4.6332 

INPNS 

10.8929 

MO 

.2362 

MF 

-0642 

GAMMA0 

1.4287 

GAMMAF 

1.4095 









BLOCK 

IV OUTPUT — 

RUN NO. 

-- 001501 

-- TIME 

C — 5.9320 ~ SEC 

-- TIME R 

.7000 — SEC 

F 

7.7390 

FSTD 

14.8588 



CF 

1.1637 

CFSTD 

1.1640 

ISP 

15.3168 

ISPS 

129.7286 



CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5053 

WDOTTS 

.1145 



ECFS 

.7833 

ECFSTD 

.7833 

WDOTO 

.3996 

WDOTOS 

.0946 



TOD 

54.0000 

TODS 

67.0000 

WDOTF 

.1056 

WDOTFS 

.0199 



TFD 

54.5455 

TFDS 

67.0000 

MR 

3.7827 

MRS 

4.7562 


1 

POD 

167.4250 

PODS 

40.0000 

PC 

15.6400 

PCS 

30.0000 



PFD 

208.5200 

PFDS 

40.0000 

CSTAR 

423.1890 

CSTASD 

404.3970 



AE 

2.1275 

PAB 

.0000 

CSTAT 

7978.6027 

CSTATS ~ 

7624.3087 



AT 

.4255 

ATT C 

.4255 

ETAC 

.0530 

ETACS 

.0530 



PCCI 

3.4656 

PCCI A 

3.3880 



A3-53 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 6.0320 

i — SEC 




F 

7.4720 

PC 

15.7600 

FV 

3498.8000 

PFI 

211.8400 

POI 

175.4900 

PFI I 

256.0100 

POII 

200.3700 

PTFO 

251.3000 

PTOO 

196. 1200 

PDFO 

40.9500 

PDOO 

28.4430 

PFIC1 

48.5600 

poi: 

42.3800 

PFIC2 

48.3700 

SS 

501.0000 

PFT I 

259.8200 

POTI 

205.5300 

TFI 

56.2727 

TGI 

55.9545 

TCI 

71.2389 

TC2 

68.0973 

TC3 

73.4956 

TC4 

146.3865 

TC5 

71.9 469 

TC6 

71.1947 


.0000 


'.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

54.7273 

TOQI 

54.0909 

TFTI 

56.3636 

TOT I 

53.1818 


.0000 


.0000 


.0000 


.0000 

WFT 

76.2400 

WOT 

19.4360 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO. 

— 001501 

— TIME 

C — 6.0320 — SEC 

— TIME R 

— — 

.8000 — SEC 


WDOTO 

.3983 

PNS 

15.7493 

PC 

15.7600 

F 

7.4720 

ISP 

14.8158 

WDOTF 

.1060 

CSTAR 

427.2269 

CF 

1.1150 

MR 

3.7557 

ZOX 

.9898 

WDOTT 

.5043 

DCSTAR 

.0000 

YF 

.9513 

YO 

.9568 

ZF 

1.0105 

IT 

GAMMAF 

5.3933 

1.4095 

IN PNS 

12.4632 

MO 

.2762 

MF 

.0748 

GAMMAO 

1.4287 

BLOCK IV 

OUTPUT — 

RUN NO. 

— 001501 

— TIME C 

— 6.0320 

— SEC — 

TIME R 

.8000 — SEC 


F 

7.4720 

FSTD 

14.2371 

CF 

1.1150 

CFSTD 

- 1.1153 

ISP 

14.8158 

ISPS 

124.8845 

CFSV 

1.4856 

CFNSV 

1.4861 

WDOTT 

.5043 

WDOTTS 

.1140 

ECFS 

.7505 

ECFSTD 

.7505 

WDOTO 

.3983 

WDOTOS 

.0942 

TOD 

54.0909 

TODS 

67.0000 

WDOTF 

.1060 

WDOTFS 

.0198 

TFD 

54.7273 

TFDS 

67.0000 

MR 

3.7557 

MRS 

4.7578 

POD 

167.6770 

PODS 

40.0000 

PC 

15.7600 

PCS 

30.0000 

PFD 

210.3500 

PFDS 

40.0000 

CSTAR 

427.2269 

CSTASD 

407.7353 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7988.1876 

CSTATS 

7623.7380 

AT 

.4255 

ATT C 

.4255 

ETAC 

.0535 

ETACS 

.0535 

PCCI 

3.4782 

PCCIA 

3.4000 



7S-EV 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 - 

— time 

C — 6.1320 — SEC 




F 

7.7030 

PC 

15.7100 

FV 

3499. 8000 

PF1 

210.3800 

POI 

175.5200 

PFII 

254.6600 

POII 

200.4200 

PTFO 

249.8900 

PTOO 

196. 1500 

PDFO 

40.9500 

PDOO 

28.7930 

PFIC1 

48.2000 

PDIC 

42.2100 

PFIC2 

47.9100 

SS 

500.3000 

PFT I 

258.6400 

POTI 

205.6100 

TFI 

56.4091 

TOI 

55.7727 

TCI 

71.3717 

TC2 

67.5664 

TC3 

73.9380 

TC4 

-302.0000 

TC5 

71.0177 

TC6 

519.4968 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.0000 

TDQI 

54.0909 

TFTI 

56.7273 

TOT I 

52.5455 


.0000 


.0000 


.0000 


.0000 

WFT 

73.7240 

WOT 

19.5240 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUN NO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO 

. -- 001501 

— TIME 

C — 6.1320 — SEC 

— TIME R — 

9000 — SEC 

WDOTO 

.4005 

PNS 

15.6993 

PC 

15.7100 

F 

7.7030 

ISP 

15.2165 

WDOTF 

.1057 

CSTAR 

424.2725 

CF 

1.1531 

MR 

3.7895 

zox 

.9898 

WOOTT 

.5062 

DCSTAR 

.0000 

YF 

.9511 

YO 

.9 563 

IF 

1.0105 

IT 

6.1549 

INPNS 

14.0370 

MO 

.3162 

MF 

.0854 

GAMMAO 

1.4287 

GAMMAF 

1.4094 









BLOCK 

IV OUTPUT — 

RUN NO. 

— 001501 - 

- TIME 

C — 6.1320 — SEC 

— TIME R 

.9000 — SEC 

F 

7.7030 

FSTD 

14.7238 



CF 

1.1531 

CFSTD 

1.1535 

ISP 

15.2165 

ISPS 

128.2756 



CFSV 

1.4857 

CFNSV 

1.4861 

WOOTT 

.50 62 

WDOTTS 

.1148 



ECFS 

.7762 

ECFSTD 

.7762 

WDOTO 

.400 5 

WDOTOS 

.0949 



TOD 

54.0909 

TODS 

67.0000 

WDOTF 

.1057 

WDOTFS 

.0199 



TFD 

55.0000 

TFDS 

67.0000 

HR 

3.7895 

MRS 

4.7754 



POD 

167.3570 

PODS 

40.0000 

PC 

15.7100 

PCS 

30.0000 



PFD 

208.9400 

PFDS 

40.0000 

CSTAR 

424.2725 

CSTASD 

405.1907 



AE 

2.1275 

PAB 

.0000 

CSTAT 

7976.1679 

CSTATS 

7617.4373 



AT 

.4255 

ATT C 

.4255 

ETAC 

.0532 

ETACS 

.0532 



PCCI 

3.4802 

PCCI A 

3.4019 



A3-55 


BLOCK 

II OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

C — 6.2320 — SEC 




F 

7.4970 

PC 

15.6500 

FV 

3495.4000 

PFI 

210.4900 

POI 

175.5000 

PFI I 

254.9600 

POII 

200.3000 

PTFO 

250. 1600 

PTOO 

196.1700 

PDFO 

40.9500 

PD 00 

28.7680 

PFIC1 

48.2500 

POIC 

42.3200 

PFIC2 

48.0700 

SS 

500.4000 

PFT I 

259.1200 

POTI 

205.5500 

TFI 

56.2727 

T 01 

55.5909 

TCI 

71.2832 

TC2 

66.8142 

TC 3 

73.9823 

TC4 

-302.0000 

TC5 

70.8407 

TC6 

519.4968 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

54.8182 

TOOI 

54.0000 

TFT! 

56.8182 

TOTI 

51.8182 


.0000 


.0000 


.0000 


.0000 

WFT 

73.7920 

WOT 

19.3320 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT — 

- RUN NO 

. -- 001501 

— TIME 

C — 6.2320 — SEC 

— TIME R — 1. 

0000 — SEC 

WDOTO 

.4004 

PNS 

15.6393 

PC 

15.6500 

F 

7.4970 

ISP 

14.8101 

WDOTF 

.1058 

CSTAR 

422.6664 

CF 

1.1266 

MR 

3.7857 

zox 

.9897 

WDOTT 

.5062 

DC ST AR 

.0000 

YF 

.9511 

YO 

.9563 

ZF 

1.0105 

IT 

. 6.9142 

INPNS 

15.6052 

MO 

.3562 

HF 

.0959 

GAMMAO 

1.4287 

GAMMAF 

1.4094 









BLOCK 

IV OUTPUT -- 

RUN NO. 

— 001501 

— TIME 

C — 6.2320 — SEC 

— TIME R 

— 1.0000 — SEC 

F 

7.4970 

FSTD 

14.3850 



CF 

1.1266 

CFSTD 

1.1269 

ISP 

14.8101 

ISPS 

125.4001 



CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5062 

WDOTTS 

.1147 



ECFS 

.7583 

ECFSTD 

.7583 

WDOTO 

.4004 

WDOTO S 

.0949 



TOD 

54.0000 

TODS 

67.0000 

WDOTF 

.1058 

WDOTFS 

.0199 



TFD 

54.8182 

TFDS 

67.0000 

HR 

3.7857 

MRS 

4.7759 



POD 

167.40 20 

PODS 

40.0000 

PC 

15.6500 

PCS 

30.0000 



PFD 

209.2100 

PFDS 

40.0000 

CSTAR 

422.6664 

CSTASD 

403.5793 



AE 

2.1275 

PAB 

.0000 

CSTAT 

7977.5300 

CSTATS 

7617.2751 



AT 

.4255 

ATT C 

.4255 

ETAC 

.0530 

ETACS 

.0530 



PCCI 

3.4639 

PCCI A 

3.3863 



A3-56 


BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

C — 6.3320 

i — SEC 




F 


7.6870 

PC 

15.6800 

FV 

3497.6000 

PFI 

211.0000 

POI 

175.4900 

PFII 


255.2600 

POII 

200.3800 

PTFO 

250.5700 

PTOO 

196. 1500 

PDFO 

40.9500 

PDOO 


28.6310 

PFIC1 

48.6200 

POIC 

42.6100 

PFIC2 

47.9900 

SS 

500.7000 

PFT I 


259.2300 

POTI 

205.5500 

TFI 

56.4545 

TOI 

55.6818 

TCI 

71.5044 

TC2 


66.5487 

TC 3 

74.3363 

TC4 

-302.0000 

TC5 

70.7522 

TC6 

519.4968 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFO I 

55.0000 

TOOI 

54.1818 

TFT I 

57.0000 

TOT I 

51.9091 



.0000 


.0000 


.0000 


.0000 

WFT 

74.6920 

HOT 


19.2780 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

I OUTPUT — 

■ RUN NO 

. ~ 001501 

— TIME 

C — 6.3320 — SEC 

— TIME R 

— 1 . 

1000 — SEC 

WDQTO 


.3995 

PNS 

15.6693 

PC 

15.6800 

F 

7.6870 

ISP 

15.2121 

WDOTF 


.1059 

CSTAR 

424.2215 

CF 

1.1529 

MR 

3.7739 

zox 

.9898 

WDOTT 


.5053 

DC STAR 

.0000 

YF 

.9512 

YO 

.9565 

ZF 

1.0105 

IT 


7.6807 

IN PNS 

17.1730 

MO 

.3962 

MF 

. 1065 

GAMMAO 

1.4287 

GAMMAF 


1.4094 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

— 001501 - 

-- TIME 

C — 6.3320 

— SEC - 

- TIME R - 

— 1.1000 — SEC 


F 

7.6870 

FSTD 

14.7214 

CF 

1.1529 

CFS TO 

1.1533 

ISP 

15.2121 

ISPS 

128.6673 

CFS V 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5053 

WDOTTS 

.1144 

ECFS 

.7760 

ECFSTD 

.7760 

WDOTO 

.399 5 

WDOTOS 

.0946 

TOD 

54.1818 

TODS 

67.0000 

WDOTF 

.1059 

WDOTF S 

.0198 

TFD 

55.0000 

TFDS 

67.0000 

MR 

3.7739 

MRS 

4.7673 

POO 

167.5190 

PODS 

40.0000 

PC 

• 15.6800 

PCS 

30.0000 

PFD 

209.6200 

PFDS 

40.0000 

CSTAR 

424.2215 

CSTASD 

405.0149 

AE 

2.1275 

PA8 

.0000 

CSTAT 

7981.7317 

CSTAT S 

7620.3594 

AT 

.4255 

ATT C 

.4255 

ETAC 

.0531 

ETACS 

.0531 

PCCI 

3.4672 

PCCI A 

3.3895 



zs-ev 


BLOCK 

II 

OUTPUT — 

RUM NO. 

— 00 150 I 

— TIME 

C — 6.4320 

i — SEC 




F 


7.6160 

PC 

15.7100 

FV 

3500.2000 

PFI 

210.8200 

POI 

175.6200 

PFII 


255.0700 

P3II 

200.3700 

PTFO 

250.3700 

PTOO 

196.2600 

PDFO 

40.9500 

POOO 


28.7090 

PFIC1 

48 . 1 900 

POIC 

42.5200 

PFIC2 

48.1900 

SS 

500.6000 

pft i 


259.0400 

POTI 

205.5300 

TFI 

56.5000 

TOI 

55.6818 

TCI 

71.3274 

TC2 


66. 1947 

TC3 

74.6903 

TC4 

-302.0000 

TC5 

. 70.4425 

TC6 

69.6903 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFO I 

55.2727 

TOOI 

54.2727 

TFTI 

57.1818 

TOT I 

51.7273 



.0000 


.0000 


.0000 


.0000 

WFT 

74.3560 

WOT 


19.3160 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT - 

- RUN NO. 

— 001501 

— TIME 

C — 6.4320 — SEC 

— TIME R 

-- 1 . 

2000 — SEC 

WDOTO 


.4000 

PNS 

15.6993 

PC 

15.7100 

F 

7.6160 

ISP 

15.0565 

WDOTF 


.1058 

C STAR 

424.6075 

CF 

1.1401 

MR 

3.7820 

ZOX 

.9898 

WOOTT 


.50 58 

DCSTAR 

.0000 

YF 

.9512 

YO 

.9564 

ZF 

1.0105 

IT 


8.4453 

INPNS 

18.7452 

MO 

.4362 

MF 

.1171 

GAMMAO 

1.4287 

GAMMAF 


1.4094 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

C — 6.4320 

— SEC - 

- TIME R • 

— 1.2000 — SEC 


F 

7.6160 

FSTD 

14.5575 

CF 

1.1401 

CFSTD 

1.1404 

ISP 

15.0565 

ISPS 

127.0839 

CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5058 

WDOTTS 

.1146 

ECFS 

.7674 

ECFSTD 

.7674 

WDOTO 

.4000 

WDOTOS 

.0947 

TOD 

54.2727 

TODS 

67.0000 

WDOTF 

.1058 

WDOTFS 

.0198 

TFD 

55.2727 

TFDS 

67.0000 

MR 

3.7820 

MRS 

4.7711 

POD 

167.5510 

PODS 

40.0000 

PC 

15.7100 

PCS 

30.0000 

PFD 

209.4200 

PFDS 

40.0000 

CSTAR 

424.6075 

CSTASD 

405.4571 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7978.8433 

CSTATS 

7618.9860 

AT 

.4255 

ATTC 

.4255 

ETAC 

.0532 

ETACS 

.0532 

PCCI 

3.4753 

PCCI A 

3.3973 



A3-58 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 6.5320 

— SEC 




F 


7.7180 

PC 

15.7300 

FV 

3497. 6000 

PFI 

210.5000 

POI 

175.5300 

PFI I 


255.0300 

P3II 

200.3600 

P TFO 

250. 1500 

PTOO 

196.2400 

PDFO 

40.9500 

PDOO 


28.7110 

PFIC1 

48.2300 

P3IC 

43.0800 

PFIC2 

47.8200 

SS 

500.4000 

PFT I 


259.0400 

POTI 

205.7500 

TFI 

56.3636 

TOI 

55.4545 

TCI 

71.3274 

TC2 


65.4867 

TC3 

74.9557 

TC4 

-302.0000 

TC5 

70.2212 

TC6 

69.4690 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFO I 

55.0909 

TOOI 

54.0909 

TFTI 

57. 1818 

TOT I 

50.9091 



.0000 


.0000 


.0000 


.0000 

WFT 

74.1880 

WOT 


19.4620 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUN NO 

1501.0000 

BLOCK 

III 

OUTPUT - 

- RUN NO. 

— 001501 

— TIME 

C — 6.5320 — SEC 

— TIME R 

— 1 . 

3000 — SEC 

WDOTO 


.4001 

PNS 

15.7193 

PC 

15.7300 

F 

7.7180 

ISP 

15.2572 

WDOTF 


.1057 

CSTAR 

425.1206 

CF 

1.1539 

MR 

3.7838 

zox 

.9897 

WOOTT 


.50 59 

DC STAR 

.0000 

YF 

.9511 

YO 

.9564 

ZF 

1.0105 

IT 


9.2124 

INPNS 

20.3165 

MO 

.4762 

MF 

.1277 

GAMMAO 

1.4287 

GAMMAF 


1.4094 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 6.5320 

— SEC - 

~ TIME R • 

— 1.3000 — SEC 


F 

7.7180 

FSTD 

14.7337 

CF 

1.1539 

CFSTD 

1.1542 

ISP 

15.2572 

ISPS 

128.5971 

CFS V 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5059 

WDOTTS 

.1146 

ECFS 

.7767 

ECFSTD 

.7767 

WDOTO 

.4001 

WDOTOS 

.0947 

TOD 

54.0909 

TODS 

67.0000 

WDOTF 

.1057 

WDOTF S 

.0199 

TFD 

55.0909 

TFDS 

67.0000 

MR 

3.7838 

MRS 

4.7688 

POD 

167.5 290 

PODS 

40.0000 

PC 

15.7300 

PCS 

30.0000 

PFD 

209.2000 

PFDS 

"40.0000 

CSTAR 

425.1206 

CSTASD 

406.0222 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7978.2172 

CSTATS 

7619.7990 

AT 

.4255 

ATT C 

.4255 

ETAC 

.0533 

ETACS 

.0533 

PCCI 

3.4810 

PCCI A 

3.4027 



A3-59 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 6.6320 

i — SEC 




F 


7.7050 

PC 

15.7400 

FV 

3497.2000 

PFI 

210.6900 

POI 

175.5300 

PFI I 


255.0900 

POII 

200.3900 

PTFO 

250.4000 

PTOO 

196.2500 

PDFD 

40.9500 

PDOO 


28.6790 

PFIC1 

48.5400 

POIC 

42. 8000 

PFIC2 

48.2800 

SS 

500.8000 

PFT I 


259.0900 

POTI 

205.6200 

TFI 

56.4545 

T 01 

55.6818 

TCI 

71.4602 

TC2 


65.2212 

TC3 

75.2655 

TC4 

-302.0000 

TC5 

69.9115 

TC6 

69.2478 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFO I 

55.0909 

TQOI 

54. 1818 

TFT I 

57.2727 

TOT I 

50.9091 



.0000 


.0000 


.0000 


.0000 

WFT 

74.3640 

WOT 


19.4820 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT — 

- RUN NO 

. — 001501 

— TIME 

C — 6.6320 — SEC 

— TIME R 

— 1 . 

4000 — SEC 

WDOTO 


.3999 

PNS 

15.7293 

PC 

15.7400 

F 

7.7050 

ISP 

15.2367 

WDOTF 


.1058 

CSTAR 

425.5348 

CF 

1.1512 

MR 

3.7796 ✓ 

zox 

.9898 

WDOTT 


.5057 

DC STAR 

.0000 

YF 

.9512 

YO 

.9565 

ZF 

1.0105 

IT 


9.9800 

INPNS 

21.8866 

MO 

.5161 

MF 

. 1383 

GAMMAO 

1.4287 

GAMMAF 


1.4094 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C — 6.6320 

— SEC - 

- TIME R — 1.4000 — SEC 


F 

7.7050 

FSTD 

14.6996 

CF 

1.1512 

CFSTD 

1.1516 

ISP 

15.2367 

ISPS 

128.3904 

CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5057 

WDOTTS 

. 1145 

ECFS 

.7749 

ECFSTD 

.7749 

WDOTO 

.3999 

WDOTOS 

.0946 

TOD 

54.1818 

TODS ' 

67.0000 

WDOTF 

.1058 

WDOTFS 

.0198 

TFD 

55.0909 

TFDS 

67.0000 

MR 

3.7796 

MRS 

4.7686 

POD 

167.5710 

PODS 

40.0000 

PC 

15.7400 

PCS 

30.0000 

PFD 

209.4500 

PFDS 

40.0000 

CSTAR 

425.5348 

CSTASD 

406.3452 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7979.7189 

CSTATS 

7619.8723 

AT 

.4255 

ATT C 

.4255 

ETAC 

.0533 

ETACS 

.0533 

PCCI 

3.4813 

PCCI A 

3.4029 



A3-60 


BLOCK 

II 

OUTPUT — 

RUM NO. 

— 001501 

— TIME 

C — 6.732C 

1 -- SEC 




F 


7.7100 

PC 

15.7000 

F V 

3497.8000 

PFI 

211.0200 

POI 

175.5800 

PFI I 


255.1800 

POII 

200.4300 

PTFO 

250.4600 

PTOO 

196.2500 

PDFO 

40.9500 

PDOO 


28.7060 

PFIC1 

48.4100 

POIC 

42. 7300 

PFIC2 

48.1300 

SS 

500.8000 

PFT I 


259.1300 

POTI 

205.5700 

TFI 

56. 5454 

TOI 

55.8182 

TCI 

71.4602 

TC2 


64.8673 

TC3 

75.6195 

TC 4 

-302.0000 

TC5 

69.8672 

TC6 

69.1150 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFOI 

55.4545 

TOOI 

54. 5455 

TFTI 

57.5455 

TOT I 

50.9091 



.0000 


.0000 


.0000 


.0000 

WFT 

74.4240 

WOT 


19.3220 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT — 

- RUN NO 

. — 001501 

— TIME 

C — 6.7320 -- SEC 

— TIME R 

— 1 . 

5000 — SEC 

WDOTO 


.3999 

PNS 

15.6893 

PC 

15.7000 

F 

7.7100 

ISP 

15.2466 

WDOTF 


.1058 

CSTAR 

424.4548 

CF 

1.1549 

MR 

3.7806 

20X 

.9898 

WDOTT 


.5057 

DC STAR 

.0000 

YF 

.9512 

YO 

.9 564 

ZF 

1.0105 

IT 


10.7493 

INPNS 

23.4583 

MO 

.5561 

MF 

.1488 

GAMMAO 

1.4286 

GAMMAF 


1.4094 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

— 001501 • 

— TIME 

C — 6.7320 

-- SEC - 

- TIME R - 

- 1.5000 — SEC 


F 

7.7100 

FSTD 

14.7466 

CF 

1.1549 

CFSTD 

1.1552 

ISP 

15.2466 

ISPS 

128.7456 

CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5057 

WDOTTS 

. 1145 

ECFS 

.7774 

ECFSTD 

.7774 

WDOTO 

.3999. 

WDOTOS 

.0947 

TOD 

54.5455 

TODS 

67.0000 

WDOTF 

.1058 

WDOTFS 

.0198 

TFD 

55.4545 

TFDS 

67.0000 

MR 

3.7806 

MRS 

4.7720 

POD 

167.5440 

PODS 

40.0000 

PC 

15.7000 

PCS 

30.0000 

PFD 

209.5100 

PFDS 

40.0000 

CSTAR 

424.4548 

CSTASD 

405.2678 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7979.3475 

CSTATS 

7618.6492 

AT 

.4255 

ATT C 

.4255 

ETAC 

.0532 

ETACS 

.0532 

PCCI 

3.4734 

PCCI A 

3.3954 



A3-61 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 - 

— TIME 

C — 6.8320 — SEC 




F 

7.6870 

PC 

15.7100 

FV 

3497. 0000 

PFI 

210.8500 

POI 

175.4500 

PFII 

255.1900 

PQII 

200.3100 

PTFO 

250.3800 

PTOO 

196. 1800 

PDFO 

40.9500 

PDQO 

28.8150 

PFIC1 

48.3700 

POIC 

42.4300 

PFIC2 

48.0400 

SS 

500.3000 

PFT I 

259.2100 

POTI 

205. 7300 

TFI 

56.4091 

TOI 

55.5454 

TCI 

71.5044 

TC 2 

64.2478 

TC 3 

75.6195 

TC4 

-302.0000 

TC5 

69.0265 

TC6 

519.4968 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.4545 

TOOI 

54.1818 

TFT I 

57.5455 

TOT I 

50.0000 


.0000 


.0000 


.0000 


.0000 

WFT 

74.3800 

WOT 

19.1720 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO 

. -- 001501 

— TIME 

C — 6.8320 -- SEC 

. — TIME ! 

R ~ 1 . 

6000 — SEC 

WDOTO 

.4007 

PNS 

15.6993 

PC 

15.7100 

F 

7.6870 

ISP 

15.1789 

WDOTF 

.1058 

CSTAR 

424.1034 

CF 

1.1507 

MR 

3.7884 

zox 

.9898 

WDOTT 

.5064 

DC STAR 

.0000 

YF 

.9512 

YO 

.9562 

ZF 

1.0105 

IT 

11.5194 

INPNS 

25.0307 

MO 

.5961 

MF 

.1594 

GAMMAO 

1.4287 

GAMMAF 

1.4094 









BLOCK 

IV OUTPUT — 

RUN NO. 

— 001501 - 

- TIME 

C — 6.8320 -- SEC 

— TIME R 

-- 1.6000 — SEC 

F 

7.6870 

FSTD 

14.6932 



CF 

1.1507 

CFSTD 

1.1511 

ISP 

15.1789 

ISPS 

127.9953 



CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5064 

WDOTTS 

.1148 



ECFS 

.7746 

ECFSTD 

.7746 

WDOTO 

.4007 

WDOTOS 

.0949 



TOD 

54.1818 

TODS 

67.0000 

WDOTF 

.1058 

WDOTF S 

.0198 



TFD 

55.4545 

TFDS 

67.0000 

MR 

3.7884 

MRS 

4.7838 



POD 

167.3650 

PODS 

40.0000 

PC 

15.7100 

PCS 

30.0000 



PFD 

209.4300 

PFDS 

40.0000 

CSTAR 

424. 1034 

CSTASD 

404.8508 



AE 

2.1275 

PAB 

.0000 

CSTAT 

7976.5595 

CSTATS 

7614.4567 



AT 

.4255 

ATT C 

.4255 

ETAC 

.0532 

ETACS 

.0532 



PCCI 

3.4776 

PCCI A 

3.3994 



A3- 6 2 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 6.9320 

, — SEC 




F 


7.7710 

PC 

15.6700 

FV 

3499.0000 

PFI 

210.9100 

POl 

175.4500 

PFI I 


255.1700 

POII 

200.3200 

PTFO 

250.3300 

PTOO 

196.2100 

PDFO 

40.9500 

PDOO 


28.6250 

PFIC1 

48.4000 

POIC 

42.7700 

PFIC2 

48.0600 

ss 

500.6000 

PFT I 


259.0300 

POTI 

205.5300 

TFI 

56.4091 

TOI 

55.5909 

TCI 

71.4602 

TC2 


63.9381 

TC3 

75.8407 

TC4 

-302.0000 

TC5 

68.9380 

TC6 

519.4968 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFO I 

55.1818 

TOO I 

54. 1818 

TFTI 

57.6364 

TOT I 

50.0000 



.0000 


.0000 


.0000 


.0000 

WFT 

74.3280 

WOT 


19.1760 


.0000 


.0000 

■ 

.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT - 

- RUN NO 

. — 001501 

— TIME 

C — 6.9320 — SEC 

— TIME R 

— 1. 

7000 — SEC 

WDOTO 


.3995 

PNS 

15.6593 

PC 

15.6700 

F 

7.7710 

ISP 

15.3797 

WDOTF 


.1058 

CSTAR 

423.98 84 

CF 

1.1663 

MR 

3.7768 

zox 

.9898 

WDOTT 


.5053 

DCSTAR . 

.0000 

YF 

.9511 

YO 

.9565 

ZF 

1.0105 

IT 


12.2895 

INPNS 

26.5990 

MO 

.6361 

MF 

.1700 

GAMMAO 

1.4287 

GAMMAF 


1.4094 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 6.9320 

— SEC - 

- TIME R — 1.7000 — SEC 


F 

7.7710 

FSTD 

14.8918 

CF 

1.1663 

CFSTD 

1.1666 

ISP 

15.3797 

ISPS 

130. 1794 

CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5053 

WDOTTS 

.1144 

ECFS 

.7850 

ECFSTD 

.7850 

WDOTO 

.3995 

WDOTOS 

.0945 

TOD 

54.1818 

TODS 

67.0000 

WDOTF 

.1058 

WDOTFS 

.0199 

TFD 

55.1818 

TFDS 

67.0000 

MR 

3.7768 

MRS 

4.7624 

POD 

167.5850 

PODS 

40.0000 

PC 

15.6700 

PCS 

30.0000 

PFD 

209.3800 

PFDS 

40.0000 

CSTAR 

423.9884 

CSTASO 

404.9371 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7980.6954 

CSTATS 

7622.0936 

AT 

.4255 

ATT C 

.4255 

ETAC 

.0531 

ETACS 

.0531 

PCCI 

3.4659 

PCCI A 

3.3883 



E9~£V 


BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

C 7.032C 

i ~ SEC 




F 


7.7160 

PC 

15.7200 

FV 

3498.0000 

PFI 

210.7500 

POI 

175.5900 

PFII 


255.2500 

POII 

200.4400 

PTFO 

250.4400 

PTOO 

196.2500 

PDFO 

40.9500 

PDOO 


28.4710 

PFIC1 

48.5600 

POIC 

42.4900 

PFIC2 

48.0800 

SS 

501.1000 

PFT I 


259.1700 

POTI 

205.5500 

TFI 

56.6364 

TOI 

55.7273 

TCI 

71.5044 

TC2 


63.8496 

TC3 

76. 1947 

TC4 

-302.0000 

TC5 

68.4513 

TC6 

519.4968 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFO I 

55.4545 

TOOI 

54. 5455 

TFTI 

57.7273 

TOT I 

49.9091 



.0000 


.0000 


.0000 


.0000 

WFT 

74.3360 

WOT 


19. 1620 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT — 

- RUN NO. 

— 001501 

— TIME 

C — 7.0320 -- SEC 

— TIME R 

— 1 . 

8000 — SEC 

WDOTO 


.3984 

PNS 

15.7093 

PC 

15.7200 

F 

7.7160 

ISP 

15.3038 

WDOTF 


.1058 

CSTAR 

426.2568 

CF 

1.1543 

MR 

3.7667 

zox 

.9898 

WDOTT 


.5042 

DCSTAR 

.0000 

YF 

.9512 

YO 

.9568 

ZF 

1.0105 

IT 


13.0610 

INPNS 

28.1679 

MO 

.6760 

MF 

. 1806 

GAMMAO 

1.4286 

GAMMAF 


1.4094 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 7.0320 

— SEC - 

— TIME R - 

-- 1.8000 — SEC 


F 

7.7160 

FSTD 

14.7394 

CF 

1.1543 

CFSTD 

1.1547 

ISP 

15.3038 

ISPS 

129.2315 

CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5042 

WDOTTS 

. 1141 

EC FS 

.7770 

ECFSTD 

.7770 

WDOTO 

.3984 

WDOTOS 

.0942 

TOD 

54.5455 

TODS 

67.0000 

WDOTF 

.1058 

WDOTFS 

.0198 

TFD 

55.4545 

TFDS 

67.0000 

MR 

3.7667 

MRS 

4.7470 

POD 

167.7790 

PODS 

40.0000 

PC 

15.7200 

PCS 

30.0000 

PFD 

209.4900 

PFDS 

40.0000 

CSTAR 

426.2568 

CSTASD 

407.2145 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7984.2926 

CSTAT S 

7627.6069 

AT 

.4255 

ATTC 

.4255 

ETAC 

.0534 

ETACS 

.0534 

PCCI 

3.4752 

PCCI A 

3.3972 



A3-64 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C — 7.1320 

— SEC 




F 


7.7240 

PC 

15.7000 

FV 

3493.6000 

PFI 

211.2400 

POI 

175.5400 

PFI I 


255.0700 

PD 1 1 

200.3400 

PTFO 

250.3800 

PTOD 

196.1900 

PDFQ 

40.9500 

PDOO 


28.6500 

PFIC1 

48.4000 

POIC 

42.5900 

PFIC2 

47.8800 

SS 

500.3000 

PFT I 


259.2300 

POT I 

205.6600 

TFI 

56.4091 

TOI 

55.5909 

TCI 

71.5929 

TC2 


63.1416 

TC3 

76.4159 

TC4 

-302.0000 

TC5 

68.0088 

TC6 

519.4968 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFO I 

55.4545 

TODI 

54.0909 

TFTI 

57.7273 

TOT I 

49.1818 



.0000 


.0000 


.0000 


.0000 

WFT 

74.3520 

WOT 


19.2580 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT — RUN NO. 

— 001501 

— : TIME 

C — 7.1320 — SEC 

— TIME R 

— 1 . 

9000 — SEC 

WOOTO 


.3997 

PNS 

15.6893 

PC 

15.7000 

F 

7.7240 

ISP 

15.2820 

WDOTF 


.1058 

CSTAR 

424.6683- 

CF 

1.1570 

MR 

3.7790 

zox 

.9898 

WDOTT 


.5054 

DC ST AR 

.0000 

YF 

.9512 

YO 

.9565 

ZF 

1.0105 

IT 


13.8334 

INPNS 

29.7414 

MO 

.7160 

MF 

. 1912 

GAMMAO 

1.4287 

GAMMAF 


1.4094 









BLOCK 

IV 

OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C — 7.1320 

— SEC - 

- TIME R - 

— 1.9000 — SEC 


F 

7.7240 

FSTD 

14.7734 

CF 

1.1570 

CFSTD 

1.1573 

ISP 

15.2820 

ISPS 

129.0813 

CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5054 

WDOTTS 

.1145 . 

ECFS 

.7788 

E CFSTD 

.7788 

WOOTO 

.3997 

WDQTQS 

.0946 

TOD 

54.0909 

TODS 

67.0000 

WDOTF 

.1058 

WDOTFS 

.0198 

TFD 

55.4545 

TFOS 

67.0000 

MR 

3.7790 

MRS 

4.7662 

POD 

167.5400 

PODS 

40.0000 

PC 

15.7000 

PCS 

30.0000 

PFD 

209.4300 

PFDS 

40.0000 

CSTAR 

424.6683 

CSTASD 

405.5550 

AE 

2.1275 

PAB 

.0000 

CSTAT 

7979.9047 

CSTATS 

7620.7482 

AT 

.4255 

ATT C 

.4255 

ETAC 

.0532 

ETACS 

.0532 

PCCI 

3.4731 

PCCIA 

3.3951 



by-tv 


BLOCK 

II OUTPUT -- 

RUN NO. 

-- 001501 

— TIME 

C — 7.2280 

i -- SEC 




F 

7.6930 

PC 

16.0400 

FV 

3498.0000 

PFI 

210.8800 

POI 

175.4300 

PFII 

255. 1500 

POII 

200.2900 

PTFO 

250.3500 

PTOQ 

196.2600 

PDFO 

40.9500 

PD 00 

28.6970 

PFIC1 

48.4300 

POIC 

42.5500 

PFIC2 

48.2200 

SS 

500.4000 

PFTI 

259.1200 

POT I 

205.6500 

TFI 

56.3636 

T 01 

55.3636 

TCI 

71.2389 

TC2 

62.6991 

TC3 

76.4159 

TC4 

-302.0000 

TC5 

68.0973 

TC6 

519.4968 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

55.0909 

TOOI 

54.0909 

TFT I 

57.7273 

TOT I 

48.8182 


.0000 


.0000 


.0000 


.0000 

WFT 

74.3440 

WOT 

21.4800 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT — 

■ RUN NO. 

— 001501 

— TIME 

C — 7.2280 — SEC 

— TIME R 

— 1 

.9960 — SEC 


WDOTO 

.4000 

PNS 

16.0291 

PC 

16.0400 

F 

7.6930 

ISP 

15.2084 

WDOTF 

.1058 

CSTAR 

433.5158 

CF 

1.1279 

MR 

3.7815 

ZOX 

.9897 

WDOTT 

.5058 

DCSTAR 

.0000 

YF 

.9512 

YQ 

.9564 

ZF 

1.0105 

IT 

14.5739 

INPNS 

31.2480 

MO 

.7544 

MF 

.2013 

GAMMAO 

1.4287 

GAMMAF 

1.4094 









BLOCK 

IV OUTPUT — 

RUN NO. 

— 001501 

— TIME C 

— 7.2280 — 

SEC ~ TIME R 

— 1.9960 

— SEC 

F 

7.6930 

FSTD 

14.4022 



CF 

1.1279 

CFSTD 

1.1283 

ISP 

15.2084 

ISPS 

125.7492 



CFSV 

1.4857 

CFNSV 

1.4861 

WDOTT 

.5058 

WDOTTS 

.1145 



ECFS 

.7592 

ECFSTD 

.7592 

WDOTO 

.4000 

WDOTOS 

.0947 



TOD 

54.0909 

TODS 

67.0000 

WDOTF 

.1058 

WDOTFS 

.0198 



TFD 

55.0909 

TFDS 

67.0000 

MR 

3.7815 

MRS 

4.7707 



POD 

167.5630- 

PODS 

40.0000 

PC 

16.0400 

PCS 

30.0000 



PFD 

209.4000 

PFDS 

40.0000 

CSTAR 

433.5158 

CSTASD 

413.9612 



AE 

2.1275 

PAB 

.0000 

CSTAT 

7979.0264 

CSTATS 

7619.1161 



AT 

.4255 

ATT C 

.4255 

ETAC 

.0543 

ETACS 

.0543 



PCCI 

3.5494 

PCCI A 

3.4679 



A3-66 


BLOCK II OUTPUT — RUN NO. — 001501 — TIME C — 7.3280 — SEC 


F 

1.7270 

PC 

14.6900 

FV 

506.3000 

PFI 

272.0700 

POI 

214.8200 

PFII 

271.8600 

POII 

212.3700 

PTFO 

271.0200 

PTOO 

214.4200 

PDFO 

4.2720 

PDOO 

2.3390 

PFIC1 

13.6100 

POIC 

14.5800 

PFIC2 

14.6900 

SS 

500.4000 

PFT I 

272.2700 

POTI 

211.7300 

TFI 

56. 7273 

TOI 

55.6818 

TCI 

71.3717 

TC2 

64.3805 

TC3 

78.0973 

TC4 

1137.0000 

TC5 

69.7788 

TC6 

70.6195 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.4545 

TOOI 

54.5455 

TFT I 

57.7273 

TOTI 

49.0909 


.0000 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 

19.9460 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO 

. — 001501 

~ TIME 

C — 7.3280 — SEC 

— TIME R 

~ 2. 

0960 — SEC 

WDOTO 

.1244 

PNS 

14.6800 

PC 

14.6900 

F 

1.7270 

ISP 

10.6879 

WOOTF 

.0372 

CSTAR 

1242.8937 

CF 

.2765 

MR 

3.3468 

zox 

.9889 

WDOTT 

.1616 

DCSTAR 

.0000 

YF 

.9953 

YG 

.9968 

ZF 

1.0113 

IT 

15.0396 

INPNS 

32.7528 

MO 

.7859 

MF 

.2099 

GAMMAO 

1.4317 

GAMMAF 

1.409 4 









BLOCK 

II OUTPUT — 

RUN NO. 

~ 001501 — TIME C 

~ 7.4280 — SEC 




F 

.5320 

PC 

14.7200 

FV 

505.8000 

PFI 

276.4700 

POI 

217.0500 

PFII 

276.1400 

POII 

218.9300 

PTFO 

275.3100 

PTOG 

216.8500 

PDFO 

.0370 

PDOO 

.0030 

PFIC1 

14.8500 

POIC 

14.6400 

PFIC2 

14.7900 

SS 

500.2000 

PFT 1 

276.2000 

POTI 

216.4900 

TFI 

57.4091 

TOI 

55.8182 

TCI 

71.4602 

TC2 

65. 1770 

TC3 

78.8496 

TC4 

1137.0000 

TC5 

70.1770 

TC6 

71.0619 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

55.8182 

TOOI 

54. 5455 

TFT I 

58. 1818 

TOT I 

48.8182 


.0000 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 

9.2140 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-67 


BLOCK 

III 

OUTPUT - 

- RUN NO 

. -- 001501 

— TIME 

C — 7.4280 — 

SEC 

— TIME R 

— 2. 

1960 — SEC 

WDOTO 


.0045 

PNS 

14.7100 

PC 

14.7200 

F 


.5320 

ISP 

66.5232 

WDOTF 


.0035 

CSTAR 

25164.1487 

CF 

.0850 

MR 


1.2839 

zox 

.9887 

WDOTT 


.0080 

DC STAR 

.0000 

YF 

1.0000 

YO 


1.0000 

ZF 

1.0115 

IT 


15.1065 

INPNS 

34.2255 

MO 

.7894 

MF 


.2108 

GAMMAO 

1.4322 

GAMMAF 


1.4093 










BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 — TIME 

C — 7.528C 

1 — SEC 




F 


.4620 

PC 

14.6900 

FV 

506.1000 

PFI 


275.5400 

POI 

215.1300 

PFII 


275.2600 

POII 

215.7600 

PTFO 

274.4400 

PTOO 


215.0600 

POFO 

.0730 

POOO 


.0130 

PFIC1 

14.8000 

POIC 

14.6000 

PFIC2 


14.7300 

SS 

500.2000 

PFT I 


275.3000 

POT I 

216.0200 

TFI 

57.8636 

TOI 


56.0000 

TCI 

71.3274 

TC2 


65.1770 

TC3 

78.9823 

TC4 

1137.0000 

TC5 


69.9557 

TC6 

70.8407 



.0000 


-0000 


.0000 



.0000 


.0000 



.0000 

TFO I 

55.9091 

TOOI 

54.6364 

TFT I 


58.1818 

TOT I 

48.4545 



.0000 


.0000 


.0000 



.0000 

WFT 

81.9000 

WOT 


6.7360 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT - 

- RUN NO 

. — 001501 

— TIME 

C — 7.5280 — 

SEC 

— TIME R 

— 2. 

2960 — SEC 

WDOTO 


.0093 

PNS 

14.6800 

PC 

14.6900 

F 


.4620 

ISP 

32.4703 

WDOTF 


.0049 

CSTAR 

14114.9630 

CF 

.0740 

MR 


1.8978 

ZOX 

.9888 

WDOTT 


.0142 

DC STAR 

.0000 

YF 

.9999 

YO 


1.0000 

ZF 

1.0115 

IT 


15.1592 

INPNS 

35.6958 

MO 

.7903 

MF 


.2112 

GAMMAO 

1.4318 

GAMMAF 


1.4093 












• A3-68> 


BLOCK 

Ii OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C -- 7.6280 

— SEC 




F 

.1290 

PC 

14.7100 

FV 

506.1000 

PFI 

275.0200 

POI 

215.5200 

PFI I 

274.7500 

POII 

215.6900 

PTFQ 

273.9400 

PTOO 

215.4300 

PDFO 

.0690 

PDOO 

.0080 

PFIC1 

14.7600 

POIC 

14.6100 

PFIC2 

14.6900 

SS 

500.4000 

PFTI 

274.8200 

POT I 

215.8900 

TFI 

58. 1818 

T 01 

56.1364 

TCI 

71.3274 

TC2 

65.3982 

TC3 

79.0265 

TC4 

1137.0000 

TC5 

70.0000 

TC6 

70.8407 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

56.2727 

TOOI 

54.8182 

TFTI 

58.2727 

TOT I 

48.7273 


.0000 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 

6.6400 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO. 

— 001501 

~ TIME 

C — 7.6280 — SEC 

— TIME R 

— 2. 

3960 — SEC 


WDOTO 

.0073 

PNS 

14.7000 

PC 

14.7100 

F 

.1290 

ISP 

10.6765 

WDOTF 

.0048 

CSTAR 

16644.2627 

CF 

.0206 

MR 

1.5343 

ZOX 

.9888 

WDOTT 

.0121 

DCSTAR 

.0000 

YF 

.9999 

YO 

1.0000 

ZF 

1.0114 

IT 

15.1906 

IN PNS 

37.1630 

MO 

.7912 

MF 

.2117 

GAMMAO 

1.4319 

GAMMAF 

1.4093 









BLOCK II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 7.7280 

i — SEC 




F 

.3240 

PC 

14.7200 

FV 

505.7000 

PFI 

274.6900 

POI 

215.7400 

PFI I 

274.3900 

POII 

216.4700 

PTFO 

273.5900 

PTOO 

215.6300 

POFO 

.0640 

PDOO 

.0060 

PFIC1 

14.7000 

POIC 

14.6300 

PFIC2 

14.6900 

SS 

500.3000 

PFTI 

274.4800 

POTI 

215. 7500 

TFI 

58.5000 

TOI 

56.2273 

TCI 

71.3717 

TC2 

65.3540 

TC3 

79.1150 

TC4 

1137.0000 

TC5 

70.0000 

TC6 

70.7080 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

56.3636 

TOOI 

55.0000 

TFTI 

58.3636 

TOTI 

48.8182 


.0000 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 

5.8380 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-69 


BLOCK 

III OUTPUT - 

- RUN NO 

. — 001501 

— TIME 

C — 7.7280 — 

SEC 

— TIME R 

— 2. 

4960 — SEC 

WOOTO 

.0063 

PNS 

14.7100 

PC 

14.7200 

F 


.3240 

ISP 

29.6564 

WDOTF 

.0046 

CSTAR 

18420.1643 

CF 

.0518 

MR 


1.3810 

zox 

.9888 

WDQTT 

.0109 

DCSTAR 

.0000 

YF 

.9999 

YO 


1.0000 

ZF 

1.0114 

IT 

15.2241 

INPNS 

38.6325 

MO 

.7920 

MF 


.2122 

GAMMAO 

1.4319 

GAMMAF 

1.4093 










BLOCK 

II OUTPUT — 

RUN ND. 

-- 001501 - 

•- TIME C 

— 7.82 8C 

1 — SEC 




F 

.2140 

PC 

14.7000 

FV 

505.6000 

PFI 


274.4000 

PQI 

215.2200 

PFII 

274.1100 

POII 

215.7900 

PTFO 

273.3000 

PTOO 


215.1200 

PDFO 

.0530 

PD 00 

.0090 

PFIC1 

14.6700 

POIC 

14.6000 

PFIC2 


14.6500 

ss 

500.2000 

PFTI 

274.2100 

POTI 

215.6000 

TFI 

58.4545 

TOI 


56.0454 

TCI 

71.2389 

TC2 

65.4425 

TC3 

79.0265 

TC4 

1137.0000 

TC5 


69.9115 

TC6 

70.4867 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 

TFO I 

56.3636 

TOO I 

54.7273 

TFTI 


58.2727 

TOT I 

48.6364 


.0000 


.0000 


.0000 



.0000 

WFT 

81.9000 

WOT 

5.0920 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO 

. — 001501 

~ TIME 

C — 7.8280 — 

SEC 

— TIME R 

— 2. 

5960 ~ SEC 

WDOTO 

.0078 

PNS 

14.6900 

PC 

14.7000 

F 


.2140 

ISP 

17.9423 

WDOTF 

.0042 

CSTAR 

16849.8254 

CF 

.0342 

MR 


1.8579 

ZOX 

.9888 

WDOTT 

.0119 

DCSTAR 

.0000 

YF 

.9999 

YO 


1.0000 

ZF 

1.0114 

IT 

15.2500 

INPNS 

40.1019 

MO 

.7928 

MF 


.2126 

GAMMAO 

1.4318 


GAMMAF 1.4093 



'04-ev 


BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 • 

— TIME 

C — 7.9280 — SEC 




F 


.2760 

PC 

14.6800 

FV 

506.2000 

PFI 

274.2200 

POI 

215.3200 

PFI I 


273.9000 

POII 

215.7300 

P TFO 

. 273.1000 

PTQO 

215.2200 

PDFO 

.0470 

PDOO 


.0090 

PFIC1 

14.6600 

POIC 

14.6100 

PFIC2 

14.6500 

ss 

500.3000 

PFT I 


274.0100 

POT I 

215. 5400 

TFI 

' 58.7727 

T01 

56.2727 

TCI 

71.3274 

TC2 


65.8849 

TC3 

79.0708 

TC4 

1137.0000 

TC5 

69.9115 

TC6 

70.5752 



.0000 


.0000 


.0000 


.0000 


.0000 



■ .0000 

TFO I 

56.4545 

TOOI 

55.0000 

TFTI 

58.5454 

TOT I 

48.8182 



.0000 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 


5.2420 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

III 

OUTPUT ~ RUN NO 

. -- 001501 

— TIME 

C — 7.9280 — SEC 

— TIME R 

— 2. 

6960 — SEC 

WDOTO 


.0078 

PNS 

14.6700 

PC 

14.6800 

F 

.2760 

ISP 

23.6267 

WDOTF 


.0039 

CSTAR 

17180.4023 

CF 

.0442 

MR 

1.9737 

zox 

.9889 

WDOTT 


.0117 

DCSTAR 

.0000 

YF 

.9999 

YO 

1.0000 

ZF 

1.0114 

IT 


15.2759 

INPNS 

41.5695 

MO 

.7936 

MF 

.2130 

GAMMAO 

1.4318 

GAMMAF 


1.4092 









BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 ■ 

-- TIME 

C — 8.0280 

i — SEC 




F 


.2330 

PC 

14.7200 

FV 

505.9000 

PFI 

274.0700 

POI 

215.4900 

PFI I 


273.7900 

POII 

215.9900 

PTFO 

272.9800 

PTOO 

215.2900 

PDFO 

.0420 

PDOO 


.0100 

PFIC1 

14.6900 

POIC 

14.6600 

PFIC2 

14.6600 

SS 

500.3000 

PFT I 


273.8800 

POT I 

215.4600 

TFI 

58.8636 

TOI 

56.5000 

TCI 

71.3274 

TC2 


65.9734 

TC3 

79.0265 

TC4 

1137.0000 

TC5 

70.0000 

TC6 

70.6637 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFOI 

56.4545 

TOOI 

55.0000 

TFTI 

58.4545 

TOT I 

49.0909 



.0000 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 


5.4060 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-7X- 


BLOCK 

III OUTPUT - 

- RUN NO 

. — 001501 

— TIME 

C — 8.0280 — 

SEC 

— TIME R 

— 2. 

7960 — SEC 

WDOTO 

.0082 

PNS 

14.7100 

PC 

14. 7200 

F 


.2330 

ISP 

19.6016 

WDOTF 

.0037 

CSTAR 

16929.9480 

CF 

.0372 

MR 


2.2016 

zox 

.9889 

WDOTT 

.0119 

DCSTAR 

.0000 

YF 

1.0000 

YO 


1.0000 

ZF 

1.0114 

IT 

15.2990 

INPNS 

43.0391 

MO 

.7945 

MF 


.2133 

GAMMAO 

1.4318 

GAMMAF 

1.409 2 

ft 









BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 ■ 

— TIME 

C — 8.1280 — SEC 




F 

.2570 

PC 

14.7200 

FV 

505.4000 

PFI 


273.9400 

POI 

215.1300 

PFII 

273.6200 

POII 

215.6300 

P TFO 

272. 8400 

PTOQ 


215.0 100 

PDFO 

.0370 

PDOO 

.0090 

PFIC1 

14.6300 

POIC 

14.5700 

PFIC2 


14.6300 

SS 

500.2000 

PFT I 

273.7600 

POT I 

215.3900 

TFI 

58. 8636 

TOI 


56.3636 

TCI 

71.2389 

TC2 

65.9292 

TC3 

78.9823 

TC4 

1137.0000 

TC5 


69.9115 

TC6 

70.2655 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 

TFO I 

56.3636 

TOOI 

55.0000 

TFTI 


58.4545 

TOT I 

48.7273 


.0000 


.0000 


.0000 



.0000 

WFT 

81.9000 

WOT 

3.7740 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

RUNNO 

1501.0000 

BLOCK 

III OUTPUT - 

- RUN NO 

. — 001501 

— TIME 

C — 8.1280 — 

SEC 

— TIME R 

— 2. 

8960 — SEC 

WDOTO 

.0077 

PNS 

14.7100 

PC 

14.7200 

F 


.2570 

ISP 

22.8776 

WDOTF 

.0035 

CSTAR 

17914.2332 

CF 

.0411 

MR 


2.2242 

ZOX 

.9889 

WDOTT 

.0112 

DCSTAR 

.0000 

YF 

1.0000 

YO 


1.0000 

ZF 

1.0114 

IT 

15.3214 

INPNS 

44.5103 

MO 

.7955 

MF 


.2137 

GAMMAO 

1.4318 


GAMMAF 1.4093 



A3-72- 


BLOCK II OUTPUT — RUN NO. — 001501 — TIME C — 8.2280 — SEC 


F .1550 

PC 

14.6800 

FV 

506.0000 

PFI 

273.8100 

POI 

215.1400 

PFII 273.5000 

PQII 

215.6100 

PTFO 

272.7200 

PTOO 

215.0300 

POFO 

.0310 

PDOO .0080 

PFIC1 

14.6200 

PDIC 

14.5900 

PFIC2 

14.6200 

ss 

500.3000 

PFTI 273.6600 

POT I 

215.3000 

TFI 

59.0000 

TOI 

56.4545 

TCI 

71.2389 

TC2 66.2389 

TC3 

78.9380 

TC4 

1137.0000 

TC5 

69.9115 

TC6 

70.2655 

.0000 


.0000 


.0000 


.0000 


.0000 

.0000 

TFO I 

56.3636 

TOOI 

55.0000 

TFTI 

58.4545 

TOT I 

48.9091 

.0000 ' 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 3.6160 


.0000 


.0000 


.0000 


.0000 

.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK III OUTPUT - 

- RUN NO 

. — 001501 

— TIME 

C — 8.2280 — SEC 

— TIME R 

— 2 . 

9960 — SEC 

WDOTO .0073 

PNS 

14.6700 

PC 

14.6800 

F 

. 1550 

ISP 

14.7687 

WDOTF .0032 

CSTAR 

19122.6902 

CF 

.0248 

MR 

2.2916 

zox 

.9889 

WDOTT .0105 

DC STAR 

.0000 

YF 

1.0000 

YO 

1.0000 

ZF 

1.0114 

IT 15.3419 

INPNS 

45.9783 

MO 

.7963 

MF 

.2140 

GAMMAO 

1.4318 

GAMMAF 1.4093 









BLOCK II OUTPUT — 

RUN NO. 

— 001501 - 

- TIME C 

— 8.3280 

i — SEC 





F 

.1920 

PC 

14.7200 

FV 

506.1000 

PFI 

273.7600 

POI 

215.2900 

PFI I 

273.4700 

POII 

215.7700 

PTFO 

272.6800 

PTOO 

215.1100 

POFO 

.0290 

PDOO 

.0150 

PFIC1 

14.6700 

POIC 

14.6300 

PFIC2 

14.6400 

ss 

500.3000 

PFTI , 

273.5600 

POT I 

215.2900 

TFI 

59.1364 

TOI 

56.5454 

TCI 

71.2389 

TC2 

66.5487 

TC3 

78.9823 

TC4 

1133.5184 

TC5 

69.9557 

TC6 

70.3540 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFO I 

56.5454 

TOOI 

55.0909 

TFTI 

58.4545 

TOT I 

49.0909 


.0000 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 

4.4900 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 



A3-73- 


BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

-- TIME 

C — 8.4280 

i — SEC 




F 


.2120 

PC 

14.7200 

FV 

505.5000 

PFI 

273.7100 

POI 

215.0900 

PFI I 


273.3700 

POII 

215.5700 

PTFO 

272.6000 

PTOO 

214.9100 

PDFO 

.0310 

PDOO 


.0140 

PFIC1 

14.6600 

POIC 

14.6200 

PFIC2 

14.6400 

SS 

500.2000 

PFT I 


273.5300 

POT I 

215.2600 

TFI 

59.1364 

TOI 

56.5909 

TCI 

71.2832 

TC2 


66.4602 

TC3 

78.8496 

TC4 

1083.3954 

TC5 

70.0442 

TC6 

70.3540 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFOI 

56.8182 

TOOI 

55.0000 

TFTI 

58.4545 

TOT I 

48.9091 



.0000 


.0000 


.0000 


.0000 

WFT 

81.9000 

WOT 


3.0140 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

11 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 8.5280 

i — sec 




F 


.1320 

PC 

14.6600 

FV 

505.9000 

PFI 

273.5900 

POI 

215.0600 

PFI I 


273.3100 

POII 

215.5200 

PTFO 

272.5300 

PTOO 

214.9300 

PDFO 

.0260 

PDOO 


.0110 

PFIC1 

14.6200 

POIC 

14.6100 

PFIC2 

14.6300 

SS 

500.3000 

PFT I 


273.4300 

POT I 

215.1600 

TFI 

59.2273 

TOI 

56.6818 

TCI 

71.2832 

TC2 


66.5487 

TC3 

78.6726 

TC4 

1037.6845 

TC5 

69.9557 

TC6 

70.1770 



.0000 


.0000 


.0000 


.0000 


.0000 



.0000 

TFOI 

56.3636 

TOOI 

55.0000 

TFTI 

58.3636 

TOT I 

48.8182 



.0000 


.0000 


.0000 


.0000 

WFT 

80.1480 

WOT 


3.4900 


.0000 


.0000 


.0000 


.0000 



.0000 


.0000 


.0000 


.0000 

RUNNO 

1500.8000 


BLOCK 

II OUTPUT — 

RUN NO. 

— 001501 

— TIME 

C — 8.6280 

— SEC 




F 

.2550 

PC 

14.6900 

FV 

506.3000 

PFI 

273.5500 

POI 

215.1500 

PFII 

273.2500 

POII 

215.6200 

PTFO 

272.4900 

PTOO 

214.9800 

PDFO 

.0250 

PDOO 

.0150 

PFIC1 

14.6200 

POIC 

14.6600 

PFIC2 

14.6500 

SS 

500.6000 

PFT I 

273.3900 

POT I 

215.1600 

TFI 

59.3182 

TOI 

56.7273 

TCI 

71.3717 

TC2 

66.8142 

TC3 

78.6726 

TC4 

996.1155 

TC5 

70.0885 

TC6 

70.4867 


.0000 


.0000 


.0000 


.0000 


.0000 


.0000 

TFOI 

56.6364 

TOOI 

55.0909 

TFTI 

58.4545 

TOT I 

49.2727 


.0000 


.0000 


.0000 


.0000 

WFT 

77.6160 

WOT 

4.2440 


.0000 


.0000 


.0000 


.0000 


.0000 

. 

. .0000 


.0000 


.0000 

RUNNO 

150 1.0000 



A3-74- 


BLOCK 

II 

OUTPUT — 

RUN NO. 

-- 001501 

— TIME 

C 

— 8.7280 — SEC 




F 


.0960 

PC 

14.7200 

FV 


505. 8000 

PFI 

273.5200 

POI 

214.9700 

PFI I 


273.2000 

POII 

215.5200 

PTFO 


272.4500 

PTOO 

214.8 300 

PDFO 

.0230 

PD 00 


.0140 

PFIC1 

14.6700 

POIC 


14.6500 

PFIC2 

14.6600 

SS 

500.4000 

PFT I 


273.3600 

POTI 

215.1500 

TFI 


59.2727 

TOI 

56.7727 

TCI 

71.3274 

TC2 


66.8584 

TC 3 

78.5841 

TC4 


958.1181 

TC5 

69.9557 

TC6 

70.3097 



.0000 


.0000 



.0000 


.0000 


.0000 



.0000 

TFO I 

56.7273 

TOOI 


55.0909 

TFT I 

58.4545 

TOT I 

49.1818 



.0000 


.0000 



.0000 


.0000 

WFT 

75.2320 

WOT 


2.1400 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 

BLOCK 

II 

OUTPUT — 

RUN NO. 

— 001501 

— TIME 

c 

— 8.8280 

i — SEC 




F 


.2490 

PC 

14.6700 

FV 


505.9000 

PFI 

273.4600 

POI 

214.9400 

PFH 


273.1600 

POII 

215.4200 

PTFO 


272.3700 

PTOO 

214.7700 

PDFO 

.0190 

PDOO 


.0130 

PFIC1 

14.6200 

POIC 


14.6100 

PFIC2 

14.6300 

SS 

500.5000 

PFT I 


273.2900 

POTI 

215.0700 

TFI 


59.2273 

TOI 

56.6818 

TCI 

71.2832 

TC2 


66.8584 

TC3 

78.4956 

TC4 


923.3922 

TC5 

69.9115 

TC6 

70.0442 



.0000 


.0000 



.0000 


.0000 


.0000 

■ 


.0000 

TFO I 

56.4545 

TOOI 


55.0000 

TFTI 

58.3636 

TOT I 

49.0000 



.0000 


.0000 

' 


.0000 


.0000 

WFT 

73.0000 

WOT 


2.4520 


.0000 



.0000 


.0000 


.0000 



.0000 


.0000 



.0000 


.0000 

RUNNO 

1501.0000 



A3-75 


★ 

* END PROCESSING PULSE NO. — 1 — RUN NO. — 001501 — ENGINE ON — 1.9960 — SEC 

* 

*«4t4t4'4i4c4:4t*******4(***««4t4:4t*4t**4!#*****«4:4t««**4(4!***«*****#»##***«***«*******i4'«*4c4:#***4:*!!tJ{c^******:*5}c#*4:**^ 



A3-76 


V X 01 CUR 

1 . ERS 

2. IN Y 

END OF FILE — UN IT Y 

3. TRI Y 

END CUR LCC 1102-0038 L8 


y XGT TRWPLT 


10 JUN 70 


16&29C 2.389 
16&29C 2.911 
16&29S 2.911 


16&29S 4.997 


10 JUN 70 


16629E 4.710 



LL~ tV 


ISCALX=1 

XL0=0. 

XHI^IO. 

I SCALY=1 
YLO=0. 

YHI = 100. 

XLABEL=ID= COMPUTER TIME SEC 
YLAB EL = ID= THRUST LBS 
T ITL E= 10= THRUST (LBS) 

PLOT=TC» 1, F, 1 , ENDLST 

ENDPLT 

YLO=0. 

YHI= 100 • 

YLABEL= ID= CHAMBER PRESSURE PSIA 
T ITL E=ID= CHAMBER PRESSURE (PSIA) 

PLOT=TC» If PCt 1, ENDLST 

ENDPLT 

YL0=0 • 

YHI=300. 

YLABEL=ID= ENGINE SPECIFIC IMPULSE SEC 
TITLE=ID= ENGINE SPECIFIC IMPULSE (SEC) 

PLQT=TCf 2 f ISPf 2, ENDLST 

ENDPLT 

XLQ=0. 

XHI=20. 

YLO=0. 

YHI=10000. 

XLABEL=I D= TOTAL IMPULSE 

YLABEL=ID= CHARACTERISTIC EXHAUST VELOCITY FT/SEC 

TITLE= 10= CHARACTERISTIC EXHAUST VELOCITY (FT/SEC) 

PLOT=IT, 2fCSTAR, 2, ENDLST 

ENDPLT 

XHI=IO. 

YHI=600* 

XLABEL=ID= COMPUTER TIME SEC 

YLABEL=ID= STANDARDIZED ENGINE SPECIFIC IMPULSE SEC 

TITLE=ID= STANDARDIZED ENGINE SPECIFIC IMPULSE (SEC) 

PLOT=TCf 2 f ISPS, 3 t ENDLST 

ENDPLT 

ENDFIL 



A3-78 


MICROFILM PLOT COMPLETED 


MICROFILM PLOT COMPLETED 

MICROFILM PLOT COMPLETED 

MICROFILM PLOT COMPLETED 

MICROFILM PLOT COMPLETED 
ENDRUN 



APPENDIX 4 


This appendix presents a complete listing of the HEPCAT program. 
Information pertaining to the TRW plot program may be found in TRW HCC report 
No. 3141.20-10, titled: "TRW Generalized Plot Program Input Manual," dated 

May T969. 
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HD011C-H0011C 


DATE 140770 


PAGE 


8 


£ FOP,* HD01 1C » HDO 1 1C 14 JUL 70 17E 5G45.392 

UNI VAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
’HIS COMPILATION WA? DONE ON 14 JUL 70 AT 17£05£45 


MAIN PRCGP AM 

STORAGF USED (BLOCK, NAME, LFNGTH ) 


0001 

■★CODS 

000122 

0000 

★DATA 

000004 

0002 

★BLANK 

000000 

0003 

FILES 

000014 

00C4 

FLAGS 

000005 

0C05 

ROWS 

000015 

0006 

UNITS 

000004 


NAL RFFFRFNCES ( BLOCK , 

0007 

CR2TAP 

0010 

CONPUT 

0011 

CHFWFR 

0012 

FILTR1 

0013 

FILTR2 

0014 

JHYDF 

0015 

SWAGFR 

0016 

OUTPUT 

0017 

NWEFt 

0020 

NSTOPS 


STORAGF ASSIGNMENT FOR VARIABLFS (BLOCK, TYPE, RFLATIVE LOCATION, NAME) 


0001 


000004 

10L 

0001 


000112 

1 63G 

0001 


000030 

20L 

0001 


000037 

30L 

0001 


000060 

40L 

OOC1 


000107 

50L 

0001 


000116 

7CL 

0003 

I 

000000 

BEGFIL 

0000 

I 

000000 

I 

0005 

I 

000000 

IBEGIN 

0003 

I 

000001 

IBL 

0003 

I 

000002 

IDUMP 

0005 

I 

000001 

IFV 

0003 

I 

000003 

ILINE 

0005 

1 

000002 

INITL 

0003 

I 

000004 

INT 

0005 

I 

000003 

ION 

0006 

I 

000000 

TOTAPE 

0003 

I 

000005 

I PC 

0003 

I 

000006 

I PLOT 

0005 

I 

000004 

I QU T T 

0005 

I 

000005 

I ROW 

0004 

I 

000000 

I SCAN 

0004 

I 

000001 

I SEND 

0004 

I 

000002 

ITON 
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HD01 1C-HDO 1 1C DATE 140770 PAGE 9 


0005 

I 

000006 

JEND 

0005 

I 

000007 

JON 

0005 

I 

000010 

JROW 

0005 

1 

000011 

KKPBEG 

0005 

I 

000012 

KKPEND 

0005 

I 

000013 

KKSAVE 

0004 

T 

000003 

LAST 

0004 

I 

000004 

LOOK 

0005 

I 

000014 

LSTPTS 

0006 

I 

000001 

MIC ROT 

0003 

T 

000007 

MUNE 

0003 

I 

C00010 

MXFILE 

0003 

I 

000011 

NOP 

0003 

I 

000012 

NLINES 

0003 

I 

000013 

NP 

0006 

T 

000002 

PLTAPF 

0006 

I 

000003 

UNIT 














00101 

1* 




INTFG C R BEGFIL, PLTAPF, UNIT 

HD010000 

00103 

2* 




COMMON / FILES / BEGFI L , I BL , I DUMP , I LI NE , INT , I PC, I PLOT, ML I NE 

HD010001 

00103 

3* 




1 t MXFTLF, NDP, NLINES ,NP 

HD010002 

00 104 

4* 




COMMON / FLAGS / I SCAN, I SEND, ITON, LAST , LOOK 

HD010003 

00105 

5* 




COMMON / ROWS / I BEGIN , IFV , I NITL , I ON , I QUIT , IROW , J END, JON, JROW 

HDOI0004 

00105 

6* 




1 , KKPBEG, KKPEND, KKSAVE, LSTPTS 

HD010005 

00106 

7* 




COMMON / UNITS / IOTAPE , MICROT , PLT APE , UNIT 

H0010006 

00106 

8* 

C 

* 

A 

PUT DATA DECK ON TAPE... 

HD010007 

00107 

9* 




CALL CR2TAP 

HD010008 

00107 

10* 

C 

* 

* 

READ IN CHANNEL DATA... 

HD010009 

00110 

11* 




CALL CDNPU T 

HD010010 

00110 

12* 

C 

* 

A 

UNPACK DATA... 

HD010011 

00111 

13* 



10 

CONTINUE 

HD010012 

00112 

14* 




CALL C HEWER 

HD010013 

00113 

15* 




IF (LAST.FQ.l) GO TO 30 

HD010014 

00113 

16* 

C 

* 

A 

CHECK FOR FND OF JOB... 

HD010015 

00115 

17* 




IF ( INT.F0.-1> GO TO 50 

HD0100 1 6 

00115 

18* 

C 

* 

A 

CHECK FOR DUMP OF DATA TAPE... 

HD010017 

00117 

19* 




IF ( IDUMP.FQ.il GO TO 30 

HD010018 

00117 

20 * 

C 


A 

r>0 FIRST COMPRESSION... 

HD0100 19 

00121 

21* 




CALL FILTR1 

HD010020 

00122 

22 * 




IF (LOOK.FO.l) GO TO 10 

H0010021 

00124 

23 * 



20 

CONTINUE 

HD010022 

00124 

24* 

C 

* 

A 

00 SECOND COMPRESSION... 

HD010023 

00125 

25* 




CALL FILTP2 

HD010024 

00126 

26* 




IF (ISEND.EQ.l) GO TO 30 

HD010025 

00130 

27 * 




GO TO 10 

HD010026 

00131 

2 8* 



3C 

CONTINUE 

HD0100 27 

00131 

29* 

C 


A 

SC*LF DATA... 

HD010028 

00132 

30 * 




CALL JHYDE 

HD010029 

00132 

31* 

C 

A 

A 

CHECK FOR DUMP OF DATA... 

HD010030 

r>0133 

32* 




IF ( IDUMP.EQ.l) GO TO 40 

HD010031 

00135 

33 * 




*F (ION. EQ. 0) GO TO 40 

HD010032 
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HD011C-HD011C 


DATE 


140770 PAGE 


10 


00137 

34* 



IF ( JON.EQ.O) GO TO 40 

HD010033 

00141 

35* 



IF ( IOIJIT.GE. 999991 GO TO 40 

HDO 100 34 

00141 

36* 

C 

# * 

DO ENGINEERING CALCULATIONS... 

HD010035 

00143 

37* 



CALL SWAGER 

HD010036 

00143 

38* 

C 

* * 

OUTPUT RESULTS... 

HD010037 

00144 

39* 


40 

CONTINUE 

HDO 1003 8 

00145 

40* 



IF ( ION .FQ. 11 JON = 1 

HD010039 

00147 

41* 



IF (ION .EG. -11 JON =-l 

HD010040 

00151 

42* 



CALL OUTPUT 

HDO 1004 1 

00152 

43* 



IF (IDUMP.EG.il GO TO 10 

HD010042 

00154 

44* 



IF (L4ST.EQ.1) GO TO 10 

HDO 10043 

00156 

45* 



GO TO 20 

HDO 100 44 

00156 

46* 

C 

* * 

PUT LAST END OF FILE MARK ON THE PLOT TAPE... 

HD010045 

00157 

47* 


50 

CONTINUE 

HD010046 

00160 

48* 



IF (IPLOT.EO.Ol GO TO 70 

HD010047 

00162 

49* 



DO 60 1=1,5 

HDO 10048 

00165 

50* 



END FILE PLTAPE 

HDO 10049 

00166 

51* 


60 

CONTINUE 

HD010050 

00170 

52* 


70 

CONTINUE 

HD010051 

00171 

53* 



STOP 

HD010052 

00172 

54* 



END 

HD010053 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 *DIAGNOSTIC* MESSAGE! S 1 


HDO 11C 

SYMBOLIC 

25 

JUN 

70 

12C26E37 

0 

01436670 

14 

54 

( DELETEDl 

HDO 1 1C CODE 

RELOCATABLE 

25 

JUN 

70 

12S26C37 

1 

01440254 

36 

1 

(DELETED! 







0 

01440320 

14 

10 



£ HOG HDO 1 1C-A V D GR 



e-*?v 


HD011C-AVRGR 


DATE 


140770 PAGE 


11 


£ FOP,* AVRGR » 4VRGR 14 JUL 70 17£ 5846.646 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17£05£46 


SUBROUTINE AVRGR ENTRY POINT 000052 

STORAGE USED (BLOCK, NAME, LENGTH! 

0001 *COD£ 000061 

0000 ♦DATA 000025 

0002 +BLANK 015607 


EXTERNAL REFERENCES (BLOCK, NAME) 
0003 NERR3A 


STORAGE ASSIGNMENT FOR VARIABLES 


(BLOCK, TYPE, 


RELATIVE LOCATION, NAME) 


0001 000021 105G 

0002 R 006476 FILT2 


0001 C00022 HOG 

OOOO I 000001 I 


00Q2 R 000000 ENGDAT 
0000 I 000000 MM 


0002 R 001604 ENGRAT 
0002 R 007433 STORE 


0002 R 002506 FILT1 


00101 

1* 

SUBROUTINE AVRGR (KK, ISTA RT , 

I STOP) 

AVRGOOOO 

00103 

2* 

COMMON 

ENGDAT (9, 100 ), ENGRAT (9,50) ,FILT1( 40, 51) 

AVRG0001 

00103 

3* 

1 

, FILT2(9»53) , STORE (60,53) 

AVRG0002 

00104 

4* 

DO 20 MM=1 , 50 



AVRGOOO 3 

00107 

5* 

DO 10 I = I ST A R T 

, I STOP 


AVRG0004 

00112 

6* 

FILT2(KK,MM> 

= FI LT2 (KK »MM) 

+ FILT1 ( I »MM) 

AVRG0005 

00113 

7* 

10 CONTINUE 



AVRG0006 

00115 

8* 

FILT2(KK,MM) 

= FILT2(KK,MM) 

/ 5.0 

AVRG0007 

00116 

9* 

20 CONTINUE 



AVRGOOO 8 

00120 

10* 

RETURN 



AVRG0009 

00121 

11* 

END 



AVRGOO 10 



HD011C-AVRGR 


DATE 140770 


PAGE 


12 


'JO OF UNIVAC 1108 FORTRAN V COMPILATION. 0 ^DIAGNOSTIC* MESSAGE! S ) 


AVRGR 


SYMBOLIC 

25 

JUN 

70 

12626S 38 

0 

01440534 

14 

11 

(DELETED) 

AVRGP 

CODE 

RELOCATABLE 

25 

JUN 

70 

12C26638 

1 

01440766 

24 

1 

(DELETED) 








0 

01441016 

14 

6 



HDG HD011C-PLKDTA 



z-vv 


HD01 1C-BLKDTA 

£ FOR > * BLKDTA,BLKDTA 

UNIV AC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17E05S47 


BLOCK DATA 

STORAGF USED (8L0CK, NAME, LENGTH) 


0003 

C0MPT1 

000006 

0004 

ENG 

000022 

0005 

FACTOR 

006533 

0006 

FILES 

000014 

0007 

FLAGS 

000005 

0010 

FUNCTN 

000310 

0011 

LABELS 

000320 

0012 

ROWS 

000015 

0013 

TIME 

000001 

0014 

UNITS 

000004 


STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION 

0004 R 000000 AC 0004 R 000001 AT 0006 I 000000 

0004 R 000003 CF2 0004 R 000004 CF3 0004 R 000005 

0004 R 000006 OCSTAR 0004 R 000007 DHO 0004 R 000010 

0002 R 000000 ENGDAT 0002 R 001604 ENGRAT 0002 R 002506 

0004 R 000014 GAMMA 0000 I 000000 I 0005 I 000063 

0005 I 000146 IC 0006 I 000002 IDUMP 0012 I 000001 

0006 I 000004 INT 0012 I 000003 ION 0014 I 000000 

0011 I 000000 I POINT 0012 I 000004 IQDIT 0012 I 000005 

0007 I 000000 ISCAN 0007 I 000001 I SEND 0007 I 000002 

0012 I 000007 JON 0012 I 000010 JROW 0004 R 000015 

0012 T 000012 KKPENO 0012 I 000013 KKSAVE 0004 R 000017 

0011 I 000236 LABRAT 0007 I 000003 LAST 0007 I 000004 

0006 I 000007 MLINE 0004 R 000020 MWH 0004 R 000021 

0006 I 000011 NDP 0006 I 000012 NLINES 0006 I 000013 

0003 R OOOOOO PAB1 0003 R 000001 PCS1 0003 R 000002 

0005 R 000464 SCALF 0002 R 007433 STORE 0005 R 000547 

0005 R 004537 TABY2 0003 R 000004 TFDSi 0003 R 000005 


DATE 140770 PAGE 13 

14 JUL 70 17£ 5 £47 • 661 


NAME! 


BEGFIL 

0005 

R 

OOOOOO 

BIAS 

0004 

R 

000002 

CF1 

CF4 

0010 

R 

OOOOOO 

CX 

0010 

R 

000144 

CY 

DOG 

0004 

R 

000011 

OPH 

0004 

R 

000012 

DPO 

FILT1 

0002 

R 

006476 

FILT2 

0004 

R 

000013 

G 

IB 

0012 

I 

OOOOOO 

IBEGIN 

0006 

I 

000001 

IBL 

IFV 

0006 

I 

000003 

I LINE 

0012 

I 

000002 

INITL 

IOTAPE 

0006 

I 

000005 

I PC 

0006 

I 

000006 

I PLOT 

I ROW 

0005 

I 

000231 

IRUNNO 

0005 

I 

000232 

IS 

ITON 

0000 

I 

ooooot 

J 

0012 

I 

000006 

JEND 

K 

0004 

R 

000016 

KF 

0012 

I 

000011 

KKPBEG 

KO 

0011 

I 

000010 

LABELS 

0011 

I' 

-000072 

LABENS 

LOOK 

0012 

I 

000014 

LSTPTS 

0014 

I, 

000001 

MICROT 

MWO 

0006 

I 

000010 

MXFILE 

0013 

I 

OOOOOO 

N 

NP 

0005 

I 

000315 

NP1 

0005 

I 

000400 

NP2 

PFDS1 

0014 

I 

000002 

PLTAPE 

0003 

R 

000003 

P0DS1 

TABX1 

0005 

R 

001545 

TABX2 

0005 

R 

003541 

TAB YI 

TODS 1 

0014 

I 

000003 

UNIT 
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DATE 
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14 


00 101 

1* 

BLOCK DATA 





BLKDOOOO 

00102 

2* 

INTEGER 



BEGFIL, PLTAPE.UNIT 



BLKDOOOl 

00103 

3* 

REAL 



K,KF,KO, MWH, MWO 



BLKD0002 

00104 

4* 

COMMON 



ENGDAT(9,100) ,ENGR AT (9,50) , FILTH 40 

,51) 

BLKD0003 

00104 

5* 

1 


, 

FI LT 2(9, 53), STORE! 60, 53) 


BLKD0004 

00105 

6* 

COMMON / 

C0MRT1 

/ 

PAB1,PCS1,PFO$1,PODSI,TFDS1,TODS1 


BLKD0005 

00106 

7* 

COMMON / 

ENG 

/ 

AC»AT,CF1,CF2,CF3, 

CF4, DCST AR, DHO, DOO, DPH, DPO, G 

BLKD0006 

00106 

8* 

1 


» 

GAMMA, K,KF,KO, MWH, 

MWO 


BLKD0007 

00107 

9* 

COMMON / 

FACTOR 

/ 

8IAS(51),IB(51)»IC(51)» IRUNNO, IS ( 5 1 ) , NP1 ( 5 1 1 

BLKD0008 

00107 

10* 

1 


* 

NP2(52) ,SCALE<51), 

TABX1(51,10),TABX2( 51,20) 

BLKD0009 

00107 

11* 

2 


» 

TABY1(51,L0) ,TABY2<51,20) 


BLKD0010 

00110 

12 * 

COMMON / 

FILES 

/ 

BEGFIL,IBL , IDUMP, I L INE , INT , IPC, IPLOT, MLINE 

8LKD001 1 

00110 

13* 

l 


i 

MXFI LE » NDP »NLI NES , 

NP 


BLKD0012 

00 111 

14* 

COMMON / 

FLAGS 

/ 

ISCAN, I SEND, ITON, LAST, LOOK 


BLKD0013 

00112 

15* 

COMMON l 

FUNCTN 

/ 

CX(IOO) »C Y( 100 ) 



BLKDOO 14 

00113 

16* 

COMMON / 

LABELS 

/ 

IPOI NT (8), LABELS! 50), LABE NS (100), LA BRAT (50) 

8LKD0015 

00114 

17* 

COMMON / 

ROWS 

/ 

I BEGIN, IFV,INITL,ION,IGUIT,IROW, JEND, JON, J ROW 

BLKD0016 

00114 

18* 

l 


, 

KKPBFG, KKPEND, KKS AVE , LSTPTS 


BLKDOO 17 

00115 

19* 

COMMON / 

TIME 

/ 

N 



BLKD001 8 

00116 

20* 

COMMON / 

UNITS 

/ 

I OTAPE ,MICROT , PLTAPE.UNIT 


BLKD0019 

00117 

21* 

DATA 8EGFIL / 3 

/ 




BLKD0020 

00121 

22* 

DATA (BIASm»I 

= 1 

,51) / 51*0.0 / 



BLKD0021 

00123 

23* 

DATA CF1 

/ 0.1603 

/ 



BLK00022 

00125 

24* 

DATA CF2 

/ 0.9905 

/ 



BLKDOO 23 

00127 

25* 

DATA CF3 

/ 0.0031 

/ 



BLKDOO 24 

00131 

26* 

DATA CF4 

/ 74.000 

/ 



BLKD0025 

00133 

27* 

DATA (CX(I),T=1 

,1001/ 1.0000 ,1.0001 

,1.0004 ,1.0008 

,1.0014 

8LKD0026 

00133 

28* 

* 



,1.0023 ,1.0033 

,1.0045 ,1.0059 

,1.0075 

BLKD0027 

00133 

2 9* 

* 



,1.0094 ,1.0114 

,1.0136 ,1.0161 

,1.0188 

8LKD0028 

00133 

30* 

* 



,1.0217 ,1.0249 

,1.0283 ,1.0320 

,1.0359 

BLKD0029 

00133 

31* 

* 



,1.0401 ,1.0446 

,1.0493 ,1.0543 

,1.0596 

BLKDOO 30 

00133 

32* 




,1.0653 ,1.0712 

,1.0775 ,1.0841 

,1.0911 

BLKD0031 

00133 

33* 

* 



,1.0984 ,1.1062 

,1.1143 ,1.1228 

, 1.1317 

8LKD0032 

00133 

34* 

* 



,1.1411 ,1.1509 

,1.1613 ,1.1721 

, 1.1834 

BLKD0033 

00133 

35* 

* 



,1.1953 ,1.2076 

,1.2209 ,1.2346 

,1.2490 

BLKD0034 

00133 

36* 

❖ 



,1.2640 ,1.2798 

,1.2964 ,1.3138 

,1.3320 

BLKD0035 

00133 

37* 

* 



,1.3512 ,1.3713 

,1.3924 ,1.4147 

,1.4381 

BLKD0036 
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00133 

3 8=* 


* 


,1.4627 

, 1.4886 

,1.5159 

,1.5448 

,1.5752 


BLKD0037 

00133 

39* 


* 


,1.6073 

,1.6414 

,1.6774 

, 1.7156 

,1.7561 


8LKD0038 

00133 

40* 


* 


,1.7991 

,1.8450 

,1.8938 

,1.9459 

,2.0016 


BLKD0039 

00133 

41* 


* 


,2.0613 

,2. 1254 

,2. 1943 

,2.2686 

,2.3488 


BLKD0040 

00133 

42* 


* 


,2.4358 

,2.5304 

,2.6334 

,2.7462 

,2.8700 


BLKD0041 

00133 

43* 


* 


,3.0066 

,3.1579 

,3.3264 

,3.5151 

,3.7279 


BLKD0042 

00133 

44* 


* 


,3.9695 

,4.2461 

,4.5657 

,4.9393 

,5.3813 


BLKD0043 

00133 

45* 


* 


,5.9124 

,6.5623 

,7.3755 

,8.4220 

,9.8185 


BLKD0044 

00133 

46* 


* 


,11.775 

,14.711 

,19.607 

,29.402 

,58.795 

/ 

BLK00045 

00135 

47* 


DATA 

(CYUI. I = lt 1001 / 0.5531 

,0.5592 

,0.5654 

,0.5717 

,0.5779 


BLK00046 

00135 

48* 


* 


,0.5841 

,0.5904 

,0.5967 

,0.6030 

,0.6093 


BLKD0047 

00135 

49* 


* 


,0.6156 

,0.6219 

,0.6282 

,0.6346 

,0.6409 


BLKD0048 

00135 

50* 


* 


,0.6472 

,0.6536 

,0.6599 

,0.6662 

,0.6726 


BLKD0049 

00135 

51* 


* 


,0.6789 

,0.6852 

,0.6915 

,0.6978 

,0.7041 


BLKD0050 

00135 

52* 


* 


,0.7103 

,0.7166 

,0.7228 

,0.7290 

,0.7352 


BLKDOO 51 

00135 

53* 


* 


,0.7414 

,0.7475 

,0.7536 

,0.7597 

,0.7657 


BLKD0052 

00135 

54* 


* 


,0.7717 

,0.7777 

,0.7836 

,0.7895 

,0.7954 


BLKD0053 

00135 

55* 


* 


,0.8012 

,0.8070 

,0.8127 

,0.8183 

,0.8239 


BLKD0054 

00135 

56* 


* 


,0.8295 

,0.8350 

,0.8405 

,0.8458 

,0.8512 


BLKD0055 

00135 

57* 


* 


,0. 8564 

,0.8616 

,0.8667 

,0.8718 

,0.8768 


BLKD0056 

00135 

58* 


* 


,0.8817 

,0.8865 

,0.8913 

,0.8959 

,0.9005 


BLKD0057 

00135 

59* 


* 


,0.9050 

,0.9095 

,0.9138 

,0.9181 

,0.9222 


BLKD0058 

00135 

60* 


* 


,0.9263 

,0.9303 

,0.9341 

,0.9397 

,0.9416 


BLKD0059 

00135 

61* 


* 


,0.9452 

,0.9487 

,0.9520 

,0.9553 

,0.9585 


BLK00060 

. 00135 

' 62* 


* 


,0.9615 

,0.9645 

,0.9673 

,0.9701 

,0.9727 


BLKD0061 

00135 

63* 


* 


,0.9752 

,0.9776 

,0.9798 

,0.9820 

,0.9840 


BLKD0062 

00135 

64* 


* 


,0.9859 

,0.9877 

,0.9894 

,0.9910 

,0.9924 


BLKD0063 

00135 

65* 


* 


,0.9937 

,0.9949 

,0.9960 

,0.9969 

,0.9977 


BLKD0064 

00135 

66* 


* 


,0.9984 

,0.9990 

,0.9994 

,0.9997 

,0.9999 

/ 

BLKD0065 

00137 

67* 


DATA 

DCSTAR / 0.0 / 






BLK00066 

00141 

. 68* 


DATA 

{ ( ENGDAT (I»J),I=1,9) »J=1 

*100» / 

900*0.0 

/ 



BLKD0067 

00143 

69* 


DATA 

{ (ENGRAT fItJ)»I=l*9) , J=1 

,501 t 450*0.0 / 




BLKD0068 

00145 

70* 


DATA 

MFILTltI,J),I = lf40),J=l 

,51) t 

2040*0.0 

/ 



BLKD0069 

00147 

71* 


DATA 

<<FILT2(I,J),I=l,9),J=i, 

53) / 477*0.0 / 




BLKD0070 

00151 

72* 


DATA 

G / 

32.1302 / 






BLKD0071 

00153 

73* 


DATA 

GAMMA / 1.40 / 






BLKD0072 

00155 

74* 


DATA 

tIBtl 1.1 = 1,511 / 51*000 

/ 





BLKD0073 

00157 

75* 


DATA 

<ICU)»I = 1*51» f 51*000 

/ 





BLKD0074 

00161 

76* 


DATA 

IDUMP / 0 / 






BLKD0075 

00163 

77* 


DATA 

TFV 

/ 3 / 






BLKD0076 

00165 

78* 


DATA 

INT 

/ 0 / 






BLKD0077 
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00167 

79* 

DATA 

ION / 0 / 




BLK0Q078 

00171 

80* 

DATA 

IDTAPE / 2 / 




BLKD0079 

00173 

81* 

DATA 

( IS(I >,1 = 1,511 / 51*000 / 



BLKD0080 

00175 

82* 

DATA 

I SCAN / 0 / 




BLKD0081 

00177 

83* 

DATA 

I SEND / 1 / 




BLKD0082 

00201 

84* 

DATA 

ITON / 0 / 




BLKDOO 83 

00 20 3 

85* 

DATA 

JON t 0 t 




BLKD0084 

00205 

86* 

DATA 

K / 0.9993 / 




BLKD0085 

00207 

87* 

DATA 

(LABELSU) ,1 = 1,50) / 




BLKDOO 86 

00207 

88* 

1 50*6H / 




BLKDOO 87 

00211 

89* 

DATA 

ILABENS(I) ,1=1,100) / 




BLKD0088 

00211 

90* 

1 6HWDDT0 r 6HPNS ,6HPC 

, 6HF 

,6HISP , 6HWD0TF 

, 6HCST AR , 

BLKD0089 

00211 

91* 

2 6HCF »6HMR t 6H ZOX 

, 6HWDQTT 

, 6HDCST AR, 6HYF 

, 6HY0 , 

BLKD0090 

00211 

92* 

3 6HZF 

, 6HI T , 6HI NPNS 

,6HM0 

,6HMF ,6HGAMMA0 

, 6HGAMMAF 

BLKD0091 

00211 

93* 

4,79*6H t 




BLK00092 

00213 

94* 

DATA 

(LABRATd ) ,1=1,40) / 




BLKD0093 

00213 

95* 

1 6HF 

, 6HFSTD , 6HC F 

, 6HCFSTD 

, 6HI SP , 6HIS PS 

, 6HCFSV , 

BLKDOO 94 

00213 

96* 

2 6HCFNSV , 6HHDDTT »6HWD0TTS 

,6HECFS 

,6HECFSTD, 6HWDDT0 

, 6HWD0T0S, 

BLKD0095 

00213 

97* 

3 6HT0D , 6HT0DS ,6HWD0TF 

, 6HWDQTFS 

, 6HTFD »6HTFDS 

, 6HMR , 

BLKD0096 

00213 

98* 

4 6HMRS >6HPDD ,6HP0DS 

, 6HPC 

, 6HPCS , 6HPFD 

, 6HPFDS , 

BLKD0097 

00213 

99* 

5 6 HOST 4R ,6HCSTASD,6HAE 

, 6HP AB 

,6HCSTAT ,6HCST ATS 

, 6HAT , 

BLKD0098 

00213 

10 0* 

6 6HATTC , 6HFTAC. * 6HETACS 




BLKD0099 

00213 

101* 

7 , 6HPCC I 1 6HPCC I A / 




BLKD0100 

00215 

102* 

DATA 

LAST / 9 f 




BLKD0101 

00217 

103* 

DATA 

LOOK / 0 / 




BLKD0102 

00221 

104* 

DATA 

LSTPTS / 50 / 




BLKD0103 

00223 

105* 

DATA 

NICROT / 18 / 




BLKD0104 

00225 

106* 

data 

MWH / 2.0160 / 




BLKD0105 

00227 

107* 

DATA 

MWO ! 32.000 / 




8LKD0106 

00231 

108* 

DATA 

MXFILF / 3 / 




8LKD0107 

00233 

109* 

DATA 

N / 0 / 




BLKD0108 

00235 

110* 

DATA 

NUNES / 41 / 




BLKD0109 

00237 

111* 

DATA 

N° / 1 / 




BLKD01 10 

00241 

112* 

DATA 

INP1II) ,1=1,51) / 51*000 / 



BLKD0111 

00243 

113* 

DATA 

(NP2( I ) ,1=1,51) / 51*000 / 



BLK00112 

00245 

114* 

nATA 

FAB 1 f 0.0 / 




BLKD01 13 

00 247 

115* 

DATA 

PCS1 / 30. / 




BLKD0114 

00251 

116* 

DATA 

PFDS1 f 40. / 




BLKD0115 

00253 

117* 

DATA 

PLTAPE t 8 / 




BLKD01 16 

00255 

118* 

DATA 

PODS 1 t 40. / 




3LKD01 17 

00257 

119* 

DATA 

t SCALE (I >,1 = 1,511 / 51*0.0 / 



BLKD0118 
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00261 

120* 

DATA 

( (STORE (I , JJ 

,1=1,60) 

, J=l,53) 

/ 

3180*0.0 / 

BLKD01 19 

00263 

121* 

DATA 

( (TABX1 ( I » J I 

,1=1,51) 

, J=l, 10) 

/ 

510*0.0 / 

BLKD0120 

00265 

122* 

DATA 

{ (TABX2(I f J) 

,1=1,51) 

, J=1 ,20) 

t 

1020*0.0 / 

BLKD0121 

00267 

123* 

OATA 

( (TABY1 { I » J ) 

,1=1,51) 

, J=l,10) 

/ 

510*0.0 / 

' BLKD0122 

00271 

124* 

DATA 

( (TABY2II ,J) 

,1=1,51) 

»J=1,20) 

/ 

1020*0.0 / 

BLKD0123 

00273 

12 5* 

DATA 

TFDS1 / 67. 

/ 




BLKD0124 

00275 

126* 

DATA 

TODSl / 67. 

/ 




8LK00125 

00277 

127* 

DATA 

UNIT / 9 / 





BLKD0126 

00301 

128* 

END 






BLKD0127 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 ^DIAGNOSTIC* MESSAGE(S) 
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(DELETED) 
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£ FOR,* CDNPUT »CDNPUT 14 JUL 70 17£ 5E50.871 

UNIV&C 1108 FORTRAN V LF V C L 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17£05£51 


SUBROUTINE CDNPUT ENTRY POINT 000731 
STORAGE USED (BLOCK, NAME, LENGTH) 


0001 

*CODE 

000745 

0000 

★ DATA 

000611 

0002 

★BLANK 

OOOOOO 

0003 

COMRAT 

000052 

0004 

C0MRT1 

000006 

0005 

ENG 

000022 

0006 

FACTOR 

006533 

0007 

FILES 

000014 

0010 

LABELS 

000320 

0011 

ROWS 

000015 

0012 

UNITS 

000004 


EXTERNAL REFERENCES (BLOCK, AAMEJ 


C01 3 

NRDUt 

0014 

NIOlS 

0015 

N 102 A 

0016 

NHOU* 

0017 

NSTOPS 

0020 

NREW* 

0021 

NWBUt 

0022 

NERR3$ 


STOP AGE ASSIGNMENT FOR 

VARIABLES 

(BLOCK, 

TYPE, 

RELATIVE 

LOCATION, 

NAME) 







0000 000425 

10F 

0001 

000127 

1 10L 

0001 

000146 

120L 

0001 

000161 

130L 

0001 

000165 

140L 

0001 000012 

1 50G 

0001 

000204 

15 0L 

0001 

000231 

170L 

0001 

000054 

1 71G 

0001 

000256 

190L 

0000 000435 

2 OF 

0001 

000345 

2 1 OL 

0001 

000367 

230L 

0001 

000372 

240L 

0001 

000171 

243G 
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0001 


000413 

2 50L 

0001 


000210 

256G 

0001 


000431 

260L 

0001 


000222 

266G 

0001 


000444 

270L 

0001 


000235 

277G 

0001 


000542 

290L 

0000 


000437 

3 OF 

0001 


000247 

307G 

0001 


000547 

310L 

0001 


000267 

323G 

0001 


000554 

330L 

0001 


000311 

333G 

0001 


000321 

341G 

0001 


000340 

350G 

0001 


000561 

3 50L 

0001 


000362 

364G 

0001 


000566 

370L 

0001 


000374 

377G 

0001 


000573 

390L 

0000 


000441 

40F 

0001 


000607 

400 L 

0001 


000710 

410L 

0000 


000452 

5 OF 

0001 


000632 

552G 

0001 


000657 

566G 

0000 


000470 

6 OF 

0001 


000704 

602G 

0000 


000502 

70F 

0000 


000514 

80F 

0000 


000526 

90 F 

0005 

R 

000000 

AC 

0003 

R 

000000 

AE 

0005 

R 

000001 

AT 

0003 

R 

000001 

ATTC 

0007 

I 

000000 

BEGFIl 

0006 

R 

000000 

BIAS 

0000 

R 

000407 

BIAS I N 

0003 

R 

000002 

CFNSV 

0003 

R 

000003 

CFSTD 

0003 

R 

000004 

CFSTDV 

0003 

R 

000005 

CFSV 

0005 

R 

000002 

CF1 

0005 

R 

000003 

CF2 

0005 

R 

000004 

CF3 

0005 

R 

000005 

CF4 

0003 

R 

000006 

CSTASD 

0003 

R 

000007 

CSTAT 

0003 

R 

000010 

C STATS 

0005 

R 

000006 

OCSTAR 

0005 

R 

000007 

OHO 

0005 

R 

000010 

DOO. 

0003 

R 

000011 

DPF 

0003 

R 

000012 

DPFS 

0005 

R 

000011 

DPH 

0005 

R 

000012 

OPO 

0003 

R 

000013 

DPOS 

0003 

R 

000015 

ECFS 

0003 

R 

000014 

ECFSTD 

0003 

R 

000016 

EPS 

0003 

R 

000017 

FT4C 

0003 

R 

000020 

FSTD 

0005 

R 

000013 

G 

0005 

R 

000014 

GAMMA 

0000 

I. 

000401 

I 

0006 

I 

000063 

IB 

0011 

I 

000000 

IBEGIN 

0007 

I 

000001 

IBL . 

0000 

I 

000370 

I BLANK 

0006 

I 

000146 

IC 

0000 

I 

000375 

TCOUNT 

0000 

I 

■000376 

IC0UT1 

0000 

I 

000402 

ID 

0007 

I 

000002 

I DUMP 

0000 

I 

000400 

IER 

0011 

I 

000001 

IFV 

0000 

I 

000371 

IIFV 

0000 

I 

000414 

IL 

0007 

I 

-000003 

ILINE 

0000 

I 

000413 

ILL ' 

0000 

I 

000000 

INAM 

oooo 

I 

000377 

INDEX 

0011 

I 

-000002 

INITL 

0007 

I 

-000004 

I NT 

0011 

I 

000003 

ION 

0012 

I 

000000 

IOTAPE 

0007 

I 

000005 

I PC 

0007 

I 

000006 

I PLOT 

0010 

I 

000000 

IPOINT 

0011 

I 

000004 

I QUIT 

0003 

I 

000021 

IRATEO 

0011 

I 

000005 

I ROW 

0006 

I 

000231 

IRUNNO 

0006 

I 

000232 

IS 

0003 

I 

000022 

ISPS 

0000 

I 

000010 

IT 

0000 

I 

-000411 

ITABL1 

0000 

I 

000412 

ITABL2 

0000 

I 

-000154 

ITAB1 

0000 

I 

000236 

ITA82 

0000 

I 

000421 

ITYPF 

0000 

I 

000072 

IT1 

0000 

I 

000423 

123 

0000 

I 

-000424 

142 

0000 

I 

000422 

152 

0000 

I 

000415 

J 

0011 

I 

000006 

JEND 

0011 

I 

•000007 

JON 

0011 

I 

000010 

JROW 

0005 

R 

000015 

K 

0005 

R 

000016 

KF 

0000 

I 

000372 

KK 

0011 

I 

000011 

KKPBEG 

0011 

I 

000012 

KKPEND 

0011 

I 

000013 

KKSAVE 

0005 

R 

000017 

KO 

0010 

I 

000010 

LABELS 

0010 

I 

000072 

LABENS 

0010 

I 

000236 

LABRAT 

0000 

I 

000416 

LL 

0011 

I 

000014 

LSTPTS 

0012 

I 

000001 

MIC ROT 

0007 

I 

000007 

MLINE 

0003 

I 

000023 

MRS 

0005 

R 

000020 

MWH 

0005 

R 

000021 

MWO 

0007 

I 

•000010 

MXFILE 

0000 

I 

000420 

N 

0000 

I 

000403 

NAME 

0000 

I 

000404 

NBIAS 

0000 

I 

000406 

NCALCR 

0007 

I 

000011 

NDP 

0007 

I 

000012 

NLINES 

0007 

I 

000013 

NP 

0006 

I 

000315 

NP1 

0006 

I 

000400 

NP2 

0000 

I 

000405 

NSCALE 

0000 

I 

000417 

NUMTAB 

0003 

R 

000024 

PAB 

0004 

R 

000000 

PAB1 

0003 

R 

000025 

PCCI 

0003 

R 

000026 

PCCI A 

0003 

R 

000027 

PCE 

0003 

R 

000030 

PCS 

0004 

R 

000001 

PCS1 

0003 

R 

000031 

POO 

0003 

R 

000032 

PFD 

0003 

R 

000033 

PFDS 

0004 

R 

000002 

PFDS1 

0012 

I 

000002 

PLTAPE 

0003 

R 

000034 

PNSS 

0003 

R 

000035 

POD 

0003 

R 

000036 

PODS 

0004 

R 

000003 

PODS 1 

0003 

R 

000037 

RFD 

0003 

R 

000040 

PFDS 

0003 

R 

000041 

ROD 

0003 

R 

000042 

RODS 

0006 

R 

000464 

SCALE 

0000 

R 

000410 

SCALED 

0006 

R 

000547 

TABX1 

0000 

R 

000320 

TABX11 

0006 

R 

001545 

TABX2 

0006 

R 

003541 

TABY1 

0000 

R 

000344 

TABY11 

0006 

P 

004537 

TABY2 

0000 

R 

000373 

TC 

0003 

R 

000043 

TFD 

0003 

R 

000044 

TFDS 

0004 

R 

000004 

TFDS1 

0003 

R 

000045 

TOD 

0003 

R 

000046 

TODS 

0004 

R 

000005 

T0DS1 

0000 

R 

000374 

TR 

0012 

I 

000003 

UNIT 

0003 

P 

000047 

WDOTFS 

0003 

R 

000050 

WDOTOS 

0003 

R 

000051 

WDOTTS 
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00103 

2* 

INTEGER 



BEGFIL, PLTAPE, UNIT 

CDNP0001 


00104 

3* 

PEAL 



K,KF,KQ,MWH,MWO 

CDNP0002 


00105 

4* 

DIMENSION 


INAMI8) ,IT(50> ,IT1(50> , ITA8H50), ITAB21 50) 

CDNP0003 


00105 

5* 

1 


t 

TABX11 (20) ,TABYli(20) 

CDNP0004 


00106 

6* 

COMMON / 

COMP AT 

/ 

AE * ATTC , CFNSV,CFSTD»CFSTDV,CFSV*CSTASD» CST AT 

CDNP0005 


00106 

7* 

1 


f 

CSTATS , DPF , DPFS ,DPQS , ECFSTD, ECFS , EPS, ETAC, FSTD 

CDNP0006 


00106 

8* 

2 


» 

I RATED , ISPS, MRS, PA B» PC Cl, PCCI A »PCE, PCS»PDO»PFD 

CDNP0007 


CO 106 

9# 

3 


t 

PFDSf PNSSt POD, PODS ,RFD,RFDS , ROD, PODS, TFD.TFDS 

C0NP0008 


00106 

104 

4 


f 

TOD, TODS, WDOTFS,WDOTOS,WDOTTS 

CDNP0009 


00107 

114 

COMMON / 

C0MPT1 

/ 

PABljPCSl, PFDS1 , PODS 1 , TFDS 1 ,TODS 1 

CONPOO 10 


00 110 

12* 

COMMON / 

ENG 

/ 

AC,AT,CF1,CF2,CF3,CF4, DCSTAR, DHO, DOO, DPH,DPO,G 

CDNP0011 


00110 

13* 

1 


t 

GAMMA » K,KF ,K0, MWH , MHO 

CDNPOO 12 


com 

14* 

COMMON / 

FACTOR 

/ 

81 AS (51) ,IB(51),IC(51) , IRUNNO, IS ( 51 ) , NP1( 5 1 ) 

CDNP0013 


00111 

15* 

1 


t 

NP2(52) ,SCALE(51),TABX1(51 ,10) ,TABX2( 51,20) 

CDNP0014 


00111 

16* 

2 


t 

TABY1(51,10),TABY2(51,20) 

CDNPOO 15 


00112 

17* 

COMMON f 

FILES 

/ 

BEGFIL,IBL,IDUMP, ILINE,INT, IPC, IPLOT,MLINE 

CDNP0016 


00112 

18* 

1 


t 

MXFI LE , NDP , NLI NES , NP 

CDNPOO 17 


00113 

19* 

COMMON / 

LA8FLS 

/ 

I POINT ( 8 ) , LABELS ( 50 ) »LABENS ( 100 ) , LA BRAT < 50) 

CDNP0018 

> 

00114 

20* 

COMMON / 

ROWS 

/ 

I BEGIN, IFV , I NITL, I ON, I QUIT , IROW, JEND, JON, J ROW 

CDNPOO 19 

•p- 

00114 

21* 

1 


t 

KKPBEG,KKPEND,KKSAVE,LSTPTS 

C0NP0020 


00115 

22* 

COMMON / 

UNITS 

/ 

I QTAPE , MICROT , PLTAPE, UNIT 

CDNP0021 


00116 

23* 

DATA 

IPLANK 


t 6H 

/CDNP0022 


00120 

24* 

DATA 

IIFV 


/ 6HF V 

/CDNP0023 


00122 

25* 

DATA 

( INAM(KK) ,KK=1,8> / 6HF ,6HPC ,6HPTF0 ,6HPT0C 

CDNP0024 


00122 

26* 

1 



, 6HPDF0 ,6HPD00 ,6HTF0I ,6HT00I 

/CDNP0025 


00124 

27* 

DATA 

TC 


/ 6HTC 

/CDNP0026 


C0126 

2 8* 

DATA 

TP 


/ 6HTR 

/CDNP0027 


00130 

29* 

10 F0RMAT(I2,1X,A6, 

3(1X,!1),1X,F9.3,1X,F9.4»1X,I3,1X, 1 3 » 

CDNP0028 


00131 

30* 

20 F0PMAT(I3,1X,I2) 



CDNP0029 


00132 

31* 

30 FORMAT I 8E10 .4) 



CDNP0030 


00133 

32* 

40 FORMAT ( 5F1 5. 5/ 5F 1 5. 5/5F15 . 5/1 1, I 3 , I 2 , I 2 » I 3 , I 2 » 12 »63X, I 2) 

CDNP0031 


00134 

33* 

50 FORMAT ( * 

TABLE NO 

.',14,' NOT FOUND. CHANNEL NO. REQUESTING CAL TACDNP0032 


00134 

34* 

1BLE WAS’ 

, I 3 , • . • 1 



CDNP0033 


00135 

3 5* 

60 FORMAT (' 

CHANNEL 

NO. ',13, •- HAS SCALING AND CURVE FLAG SET') 

CDNP0034 


00136 

36* 

70 C 0R MAT t ' 

CHANNEL 

NG . * , I 3 » • HAS NO SCALING OR CURVE FLAG SET') 

CDNP0035 


00137 

37* 

80 FORMAT! • 

OERRORS 

IN CARD INPUT HAVE CAUSED CANCELLATION OF RUN’ 1 

CDNP0036 


00 140 

38* 

90 FOR MAT ( ' 

ODATA CHANNEL CARD WAS NOT INPUT FOR VARIABLE ',A6,' AND 

ICDNP0037 


00140 

39* 

IS REQUIRED IF THE 

ENGINEERING SUBROUTINE IS TO PRODUCE VALID RESULCDNP0038 


00140 

40* 

2TS . • ) 




CDNP0039 


00141 

41* 

IF (INITL.EQ.l) 

GO TO 400 

CDNP0040 


00143 

42* 

ICOUN* 

= 0 



CDNP0041 
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00144 

43* 


IC0UT1 = 0 

CDNP0042 

00145 

44* 


INDEX = 0 

CDNP0043 

00146 

45* 


IER = 0 

CDNP0044 

00147 

46* 


DO 140 1=1,50 

CDNP0045 

00152 

47* 


READ ( I0TAPE,10)ID,NAME,NBIAS,NSCALE, 

NCALCR, BIAS IN, SCALED, ITABL 1, ICDNP0046 

00152 

48* 


1TABL2 

CDNP0047 

00165 

49* 


IF (NAME.FQ. IBLANK) GO TO 130 

CDNP0048 

00167 

50* 


LABELS (I) = NAME 

CDNP0049 

00170 

51* 


DO 100 I LL=1 , 8 

CDNP0050 

00173 

52* 


IF (NAME .EG. INAMt ILL) ) IPOINT(ILL) 

= ID CDNP0051 

00175 

53* 

100 

CONTINUE 

CDNP0052 

00177 

54* 


IF (NAME ,E9. II FV ) I FV = I 

' CDNP0053 

00201 

55* 


IB(ID) = NBIAS 

CDNP0054 

00202 

56* 


IS ( ID ) = NSCALE 

CDNPOO 55 

00203 

57* 


IC < ID ) = NCALCR 

CDNP0056 

00204 

58* 


8 I AS ( I D ) = BIASIN 

CDNP0057 

00205 

59* 


SCALE! ID) = SCALED 

CDNP0058 

00206 

60* 


IF (NCALCR. NE.O. OR. NSCALE. NE.O) GO TO 

110 CONP0059 

00210 

61* 


TER = 1 

CDNPOO 60 

00211 

62* 


WRITE (6, 70) ID 

CDNP0061 

00214 

63* 


GO TO 120 

CDNP0062 

00215 

64* 

110 

CONTINUE 

CDNP0063 

00216 

65* 


IF (NCALCR. NE. NSCALE) GO TO 120 

CDNP0064 

00220 

66* 


IER = 1 

C0NP0065 

00221 

67* 


WRITF (6,60)10 

CDNP0066 

00224 

68* 


ID = 51 

CDNP0067 

00225 

69* 

120 

CONTINUE 

CDNP0068 

00226 

70* 


IF (NCALCR. LE.O) GO TO 140 

CDNP0069 

00230 

71* 


ITABKI) = ITABL1 

CDNP0070 

00231 

72* 


ITAB 2(1) = ITABL2 

CDNP007 1 

00232 

73* 


IT( I ) = ITABll 

CDNP0072 

00233 

74* 


IT 1 ( I ) = ITABL2 

CDNP0073 

00234 

75* 


GO TO 140 

CDNP0074 

00235 

76* 

130 

CONTINUE 

CDNP0075 

00236 

77* 


TS(IO) =2 

CDNP0076 

00237 

78* 


SCALE! ID) = 0. 

CDNP0077 

00240 

79* 

140 

CONTINUE 

CDNP0078 

00242 

80* 


DO 150 1=1,8 

CDNP0079 

00245 

81* 


IF ( IPOINT(I).NE.O) GO TO 150 

CDNP0080 

00247 

82* 


IER = 1 

CDNP0081 

00250 

83* 


WRITE <6,90)1 NAM< I) 

CDNP0082 



A4-16 


HD011C-CDNPUT 


DATE 140770 PAGE 


22 


00253 

84* 

150 

CONTINUE 

CDNPOO 83 

00255 

85* 


DO 170 1=1,50 

C0NP0084 

00260 

86* 


IF ( IT(I ).f=0.0) GO TO 170 

CDNP0085 

00262 

87* 


!l = IT(I ) 

CDNPOO 86 

00263 

88* 


irm =o 

CDNP0087 

00264 

89* 


I COUNT = I COUNT +1 

CDNPOO 88 

C0265 

90* 


DO 160 J=1 » 50 

CDNP0089 

00270 

91* 


IF (IL .EQ. ITU)) IT( J) = 0 

CDNP0090 

00272 

92* 

160 

CONTINUE 

CDNP0091 

00274 

93* 

170 

CONTINUE 

CDNP0092 

00276 

94* 


00 190 1=1,50 

CDNP0093 

00301 

95* 


if nnm.EQ.oi go to 190 

CDNP0094 

00303 

96* 


il = mm 

CDNP0095 

00304 

97* 


mm = o 

CDNP0096 

00305 

98* 


ICOUTl = ICOUT1 + 1 

C0NP0097 

00306 

99* 


no 180 J=1 , 50 

CDNP0098 

00311 

100* 


IF (IL .EQ, ITKJII IT1(J) = 0 

CDNP0099 

00313 

101* 

180 

CONTINUE 

C0NP0100 

00315 

102* 

190 

CONTINUE 

CDNP0101 

00317' 

103* 


INDEX = ICOUNT + ICOUTl 

CDNP0102 

00320 

104* 


IF ( INDEX. EQ.Ot GO TO 240 

CDNP0103 

00322 

105* 


DO 230 LL=1, INDEX 

CDNP0104 

00325 

106* 


READ (IOTAPE,20»NUMTAB,NP 

CDNP01C5 

00331 

107* 


READ (IOTAPE,30MTABXll(I) ,TABY11( I ) , 1=1,NP) 

CDNP0106 

00340 

108* 


DO 230 J = 1 » 50 

CDNP0107 

00343 

109* 


IF ( NUMTAB .NE.ITABl(J) J GO TO 210 

CDNP0108 

00345 

110* 


NPHJI = M° 

CDNP0109 

00346 

111* 


I TAB 1 ( J J =0 

CDNP0110 

00347 

112* 


DO 200 N=1,NP 

CONPOlll 

00352 

113* 


TAB Yl ( J ,N) = TABYll(N) 

CDNP01 12 

00353 

114* 


TABXl ( J ,N) = TABXUCN) 

CDNP01 13 

00354 

115* 

200 

CONTINUE 

CDNP0114 

00356 

116* 

210 

CONTINUE 

CDNP01 15 

00357 

117* 


IF (NUMTAB. NF.ITAB2(J>) GO TO 230 

CDNP01 16 

00361 

118* 


I TAB 2 ( J ) = 0 

CDNP0117 

00362 

119* 


NP 2( J I = NP 

CDNP0118 

00363 

120* 


Dfl 220 N=I,MP 

CDNPO 1 19 

00366 

121* 


TA8X2(J,N)= TABX11 (M) 

CDNP0120 

00367 

122* 


TA8 Y2 ( J , N) = TABYlltNt 

CDNP0121 

00370 

123* 

220 

CONTINUE 

CDNP0122 

00372 

124* 

230 

CONTINUE 

C0NP0123 
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0037 5 

125* 

240 

CONTINUE 

CDNP0124 

00376 

126* 


DO 260 1=1,50 

CDNP0125 

00401 

12 7* 


IF (ITABim.EQ.O) GO TO 250 

CDNP0126 

0040 3 

128* 


IFR = IER + 1 

CDNP01 27 

00404 

129* 


WRITE 16,50) ITAB1 ( I ) » I 

CDNP0128 

00410 

130* 

250 

CONTINUE 

CDNP0129 

00411 

131* 


IF ( TTAB21D.EQ.0) GO TO 260 

C0NP0130 

00413 

132* 


IFR = IER + 1 

CDNP013I 

00414 

133* 


WRITE (6,50) ITAB21I) ,1 

CDNP0132 

00420 

134* 

260 

CONTINUE 

CDNP0I33 

00422 

135* 


IF { IFR.EQ.O) GO TO 270 

CDNP0134 

00424 

136* 


WRITE (6,80) 

CDNP0135 

00426 

137* 


STOP 

CDNP0136 

00427 

138* 

270 

CONTINUE 

CDNP0137 

00430 

139* 


READ (I0TAPF,40)AT,KC,D00,DP0,KF,DH0,DPH,AC,AE,PAB,TFDS, 

TODS, PFDS, CDNP0138 

00430 

140* 

IPODS ,PCS,IDUMP,NDP, I PC,I PLOT ,NP, MICROT, I RATED, BEGFIL 

CDNP0139 

00461 

141* 


IF ( BFGFIL .EQ. 0) BEGFIL = 3 

CDNP0140 

00463 

142* 


IF (IRATED.EO.O) GO TO 390 

CDNP0141 

00465 

143* 


IF (PAB) 290,280,290 

CDNP0142 

00470 

144* 

280 

CONTINUE 

C0NP0143 

00471 

145* 


PAB = PAB1 

CDNP0144 

00472 

146* 

290 

CONTINUE 

CDNP0145 

00473 

147* 


IF (PCS) 310,300,310 

CDNP0146 

00476 

148* 

300 

CONTINUE 

CDNP0147 

00477 

149* 


PCS = PCS1 

C0NP0148 

00500 

150* 

310 

CONTINUE 

CDNP0149 

00501 

151* 


IF { P F OS ) 330,320,330 

CDNP0150 

00 504 

152* 

320 

CONTINUE 

CDNP015I 

00505 

153* 


PFDS = PFDS1 

CPNP0152 

00506 

154* 

330 

CONTINUE 

CDNP0I53 

00507 

155* 


IF (PODS) 350,340,350 

CDNP0154 

00512 

156* 

340 

CONTINUE 

CDNP01 55 

00513 

157* 


POOS = PODS 1 

CONP0156 

00514 • 

158* 

350 

continue 

CDNP0157 

00515 

159* 


IF ( TFDS ) 370,360,370 

CDNP01 58 

00520 

160* 

360 

CONTINUE 

C0NP0159 

00521 

161* 


TFDS = TFDS 1 

CDNP0160 

O0522 

162* 

370 

CONTINUE 

CDNP01 61 

00523 

163* 


IF (TODS) 390,380,390 

C0NP0162 

00526 

164* 

380 

CONTINUE 

C0NP01 63 

00.527 

165* 


TODS = TODSl 

CDNP01 64 
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00530 

166* 

390 

CONTINUE 


CDNP0165 

00531 

167* 


IF ( MICROT .EQ. 

1) MICROT = 17 

CDNP0166 

00533 

168* 


IF { I PLOT.G Q. 0 ) 

GO TO 410 

C0NP0167 

00535 

169* 


REWIND PLTAPE 


CDNP0168 

00536 

170* 


GO TO 410 


CDNP0169 

00537 

171* 

400 

CONTINUE 


CDNP0170 

00540 

172* 


IF 1 1 PLOT .EQ.O) 

GO TO 410 

C0NP0171 

00542 

173* 


ITYPE = -l 


CDNP01 72 

00543 

174* 


152 = 52 


CDNP0173 

00 544 

175* 


WRITE (PLTAPE) 

ITYPE, I52,TC,TR,t LABELS ( I) *1=1. 50) 

CDNP0174 

00556 

176* 


ITYPE = -2 

* 

CDNP0175 

00557 

177* 


123 = 23 


C0NP0176 

00560 

178* 


WRITE (PLTAPE) 

ITYPE,I23,TC,TR,(LABENS(I ), 1=1, 211 

CDNP0177 

00572 

179* 


ITYPE = -3 


CDNP0178 

00573 

180* 


142 = 42 


CDNP0179 

00574 

181* 


WRITE (PLTAPE) 

ITYPE,I42,TC,TR,(LA8RATU),I=1,40) 

CDNP0180 

00606 

182* 

410 

CONTINUE 


CDNP0181 

00607- 

183* 


RETURN 


CDNP0182 

00610 

184* 


END 


CDNP0183 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 *DI AGNOST I C* MESSAGE(S) 


CDNPUT 

SYMBOLIC 

25 

JUN 

70 

12C26C44 

0 

01477772 

14 

184 

(DELETED) 

CDNPUT CODE 

RELOCATABLE 

25 

JUN 

70 

12&26S44 

1 

01505012 

60 

1 

(DELETED) 







0 

01505106 

14 

61 
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£ FOR,* C HEWER »CHEWER 14 JUL 70 176 5653.488 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17605653 


SUBROUTINE CHEWER ENTRY POINT 000716 
STORAGE USED (BLOCK, NAMF , LENGTH) 


0001 

♦ CODE 

000730 

0000 

*DATA 

006423 

0002 

♦BLANK 

015607 

0003 

FACTOR 

006533 

0004 

FILES 

000014 

0005 

FLAGS 

000005 

0006 

ROWS 

000015 

0007 

TIME 

000001 

0010 

TIMLST 

000001 

0011 ' 

UNITS 

000004 


EXTERNAL REFERENCES (BLOCK, NAME I 


0012 

NTRAN 

0013 

CDNPUT 

0014 

FILTR2 

0015 

SWAGER 

0016 

OUTPUT 

0017 

NWOUJ 

0020 

NI02$ 

0021 

NTQ1$ 

002 2 

NWEFt 

0023 

NSTOPt 

0024 

NERR2J 

0025 

NERR3S 


STORAGE ASSIGNMENT FOR VARIABLFS (BLOCK, TYPE, RELATIVE LOCATION, NAME I 
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0000 


006225 

1 OF 

0001 


000066 

100L 

0001 


000073 

110L 

0001 


000077 

120L 

0001 


000112 

130L 

0001 


000161 

140L 

0001 


000216 

150L 

0001 


000231 

160L 

0001 


000252 

170L 

0001 


000274 

180L 

0001 


000327 

1901 

0000 


006253 

20F 

0001 


000341 

200L 

0001 


000373 

210L 

0001 


000440 

220L 

0001 


000470 

230L 

0001 


000500 

240 L 

0001 


000516 

250L 

0001 


000526 

260L 

0001 


000555 

270L 

0001 


000644 

2 901 

0000 


006301 

30F 

0001 


000662 

300L 

0001 


000666 

310L 

0001 


000677 

330L 

0000 


006324 

40F 

0001 


000557 

426G 

0001 


000627 

444G 

0000 


006366 

50 F 

0001 


000004 

60 L 

0001 


000036 

70L 

0001 


000045 

SOL 

0001 


000063 

90L 

0004 

I 

000000 

BEGFIL 

0003 

R 

000000 

BIAS 

0000 

R 

000001 

DAT 

0002 

R 

000000 

ENGDAT 

0002 

R 

001604 

ENGRAT 

0002 

R 

002506 

FILT1 

0002 

R 

006476 

FILT2 

0000 

1 

006216 

I 

0003 

I 

000063 

IB 

0006 

I 

000000 

IBEGIN 

0004 

I 

000001 

IBL 

0003 

I 

000146 

IG 

0000 

I 

006223 

ICC 

0000 

I 

004544 

IDATIN 

0004 

I 

000002 

I DUMP 

0000 

I 

006213 

I END 

0000 

I 

006206 

IFLAG 

0000 

I 

006207 

IFLIP 

0006 

I 

000001 

I F V 

0004 

I 

000003 

ILINE 

0006 

I 

000002 

INITL 

0004 

I 

000004 

I NT 

0006 

I 

000003 

TON 

0011 

I 

000000 

IOTAPE 

0004 

I 

000005 

I PC 

0004 

I 

000006 

I PLOT 

0006 

I 

■000004 

I QUIT 

0000 

I 

006210 

IR 

0006 

I 

000005 

TROW 

0003 

I 

000231 

IRUNNQ 

0003 

I 

000232 

IS 

0005 

I 

■OOOOOO 

I SCAN 

0005 

r 

000001 

I SEND 

0005 

I 

000002 

ITON 

OOOO 

I 

006217 

I 1 

0000 

I 

006220 

12 

0000 

I 

-006221 

13 

0006 

i 

000006 

JEND 

0006 

I 

000007 

JON 

0006 

I 

000010 

J ROW 

0006 

I 

000011 .KKPBEG 

0006 

I 

000012 

KKPEND 

0006 

i 

000013 

KKSAVE 

0000 

I 

006224 

KM 

0000 

I 

006215 

KNTFIL 

0000 

I 

-006214 

L 

0005 

I 

000003 

LAST 

0005 

X 

000004 

LOOK 

0006 

I 

-000014 

LSTPTS 

0000 

I 

006222 

M 

0011 

I 

000001 

MICROT 

0004 

I 

000007 

MLI NE 

0004 

i 

000010 

MXFIIE 

0007 

I 

000000 

N 

0004 

I 

000011 

NDP 

0000 

I 

006212 

NFILE 

0004 

1 

000012 

NLINES 

0004 

i 

000013 

NP 

0003 

I 

000315 

NP1 

0003 

I 

•000400 

NP2 

0000 

I 

006211 

NREC 

0000 

1 

OOOOOO 

PCOUNT 

0011 

i 

000002 

PLTAPE 

000 3 

R 

000464 

SCALE 

0002 

R 

007433 

STORE 

0003 

R 

000547 

TAB XI 

0003 

R 

001545 

TAB X2 

0003 

R 

0C3541 

TABY1 

0003 

R 

004537 

TABY2 

0010 

R 

000000 

TIMLST 

0011 

I 

000003 

UNIT 






00101 

1* 

SUBROUTINE CHEWER 


CHEWOOOO 

00103 

2* 

INTEGER 




BEGFIL, PCOUNT, PLTAPE, UNIT 

CHEW0001 

00104 

3* 

DIMENSION 


DAT ( 2403 I , IDATINI 802) 

CHEW0002 

00105 

4* 

COMMON 




ENGDAT ( 9, 100) , ENGRAT (9,50) ,FIL-T1(40, 51) 

CHEW0003 

00105 

5* 

1 



* 

FILT2(9,53> , STORE! 60,531 

CHEW0004 

00106 

6* 

COMMON 

/ 

FACTOR 

/ 

BIAS(51),IB(51),IC(51), IRUNNO, IS ( 51),NP1(51> 

CHEW0005 

00106 

7* 

1 



» 

NP2 ( 52 ) , SCALE 151) ,TABX1( 51,10) ,TABX2( 51,20 1 

CHEW0006 

00106 

8* 

2 



• 

TABYi(51,10»,TABY2(51,20) 

CHEW0007 

00107 

9* 

COMMON 

/ 

FILES 

/ 

BEGFIL, IBL, I DUMP, IL INE , INT , IPC, I PLOT ,MLINE 

CHEW0008 

00107 

10* 

1 



» 

MXFILE, NDP, NLINES, NP 

CHEW0009 

00110 

11* 

COMMON 

/ 

FLAGS 

/ 

I SCAN, I SEND, ITON, LAST, LOOK 

CHEW0010 

00111 

12* 

COMMON 

/ 

ROWS 

/ 

IBEGIN, IFV, INITL, I ON, I QUIT, IROW, JEND, JON, JROW 

CHEWOO 11 

00111 

13* 

1 



» 

KKPBEG, KKPEND, KKSAVE, LSTPTS 

CHEW0012 

00 112 

14* 

COMMON 

/ 

TIME 

/ 

N 

CHEW0013 

00113 

15* 

COMMON 

/ 

TIMLST 

/ 

TIMLST 

CHEWOO 14 

00114 

16* 

COMMON 

/ 

UNITS 

f 

IOTAPE, MICROT, PLTAPE, UNIT 

CHEW0015 
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00115 

17* 



DATA I FLAG / 1 


/CHEWOO 16 

00117 

18* 



DATA IFLIP / 0 


/CHEW0017 

00121 

19* 



DATA IR / 1 


/CHEWOO 18 

00123 

20* 



DATA NPEC / 0 


/CHEWOO 19 

00125 

21* 



DATA PCOUNT / 0 


/CHEW0020 

00127 

22* 


10 

FORMAT! ’OBAD RECORD ENCOUNTERED IN FILE ',12,' 

- RECORD NUMBER • , 

IGHEW002 1 

00127 

23* 


13, » - RECORD LENGTH IS • , 13, • .. .SKI P AND READ 

NEXT RECORD...*) 

CHEW0022 

00130 

24* 


20 

FORMAT! ‘ODEVICE ERROR AND/OR TRANSMISSION ABORT WHILE READING FI LECHEW0023 

00130 

25* 



1 • » I 2, * - RECORD NUMBER • , 1 3 , • . . . SKI P AND READ 

NEXT RECORD...*) 

CHEW0024 

00131 

26* 


30 

FORMAT! *0' ,12,' CONSECUTIVE END-OF-FILES ENCOUNTERED. PROCESSING 

CHEW0025 

00131 

27* 



1C0MPLETE AFTER READING FILE MARK NO. *,I2,*.») 


CHEW0026 

00132 

28* 


40 

FORMAT! *!• ,18(/> ,/• *,109!**')/* *', 107X ,**•/• 

* * , 13X, * END PROCESSCHEW0027 

00132 

29* 


1ING PULSE NO. —*,13,* — RUN NO. — *,A6,* — 

ENGINE ON -- * , F6 . 

4CHEW0028 

00132 

30* 



2,* — SECST110,'**/' *• »T110, ***/’ *,109(»**) 

) 

CHEW0029 

00133 

31* 


50 

FORMAT! • 1* ) 


CHEW0030 

00134 

32* 



IF ( ISCAN.EQ.O) GO TO 60 


CHEW0031 

00136 

33* 



ISCAN = 0 


CHEW0032 

00137 

34* 



GO TO 330 


CHEW0033 

00140 

35* 


60 

CONTINUE 


CHEW0034 

00141 

36* 



IF ( LAST.EQ. 1 ) GO TO 210 


CHEW0035 

00141 

37* 

C 

* * 

CHECK FOR INITIAL PASS BEING OVER... 


CHEW0036 

00143 

3 8* 



IF < INT.NE.OI GO TO 100 


CHEW0037 

00143 

39* 

C 

* * 

SAVE BEGINNING FILE... 


CHEW0038 

00145 

40* 



NFILE = BEGFIL 


CHEW0039 

00145 

41* 

C 

* * 

REWIND THE DATA TAPE... 


CHEW0040 

00146 

42* 



CALL NTRAN {UNIT, 10) 


CHEW0041 

00146 

43* 

C 

* * 

CHECK FOR FIRST FILE... 


CHEW0042 

00147 

44* 



IF INFTLE-1.LE.01 GO TO 70 


CHEW0043 

00147 

45* 

c 

* * 

PASS REQUIRED NUMBER OF END-OF-FILE MARKS... 


CHEW0044 

00151 

46* 



CALL NTRAN (UNIT, 8, NFI LE-1 ) 


CHEW0045 

00151 

47* 

c 

* * 

SET PASS FLAG... 


CHEW0046 

00152 

48* 


70 

CONTINUE 


CHEW0047 

00152 

49* 

c 

* * 

CHECK FOR DATA DUMP... 


CHEW0048 

00153 

50* 



IF ( I DUMP. EQ. 1 1 GG TO 80 


CHEW0049 

00155 

51* 



INT = 1 


CHEW0050 

00156 

52* 



GO TO 100 


CHEW0051 

00156 

53* 

c 

* * 

CHECK FOR DUMP PULSE BEING IN FIRST FILE... 


CHEW0052 

00157 

54* 


80 

CONTINUE 


CHEW0053 

00160 

55* 



IF (NDP-l.LE.O) GO TO 90 


CHEWOO 54 

00160 

56* 

c 

* * 

PASS RFOUIPSD ENO-OF-FILE MARKS... 


CHEW0055 

00162 

57* 



CALL NTRAN (UNIT, 8, NDP-1 1 


CHEWOO 56 
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00162 

5 8* 

C 

* 

* 

SET PASS FLAG... 

CHEW0057 

00163 

59* 


90 

CONTINUE 

CHEW0058 

00164 

60* 




TNT = 1 

CHEW0059 

00165 

61* 




GO TO 120 

CHEW0060 

00166 

62* 


100 

CONTINUE 

CHEW0061 

00166 

63* 

C 

* 

* 

CHECK TO SEE IF WE PROCESSED CORRECT NUMBER OF PULSES... 

CHEW0062 

00167 

64* 




IF <PCOUNT.LE.NP) GO TO 120 

CHEW0063 

00171 

65* 


110 

CONTINUF 

CHEW0064 

00172 

66* 




LAST = 0 

CHEW0065 

00172 

67* 

c 

* 

* 

SET PASS FLAG TO SHOW END OF JOB... 

CHEW0066 

00173 

68* 




INT = -1 

CHEW0067 

00174 

6 9* 




GO TO 330 

CHEW0068 

00174 

70* 

c 

* 

* 

READ A RECORD OF DATA... 

CHEW0069 

00175 

71* 


120 

CONTINUE 

CHEW0070 

00176 

72* 




IEND = 0 

CHEW0071 

00177 

73* 




NR EC = NR EC + 1 

CHEW0072 

00200 

74* 




CALL NTRAN (UNIT, 2,802, IDATIN,L) 

CHEW0073 

00200 

75* 

c 

* 

$ 

CHECK FOR READ OPERATION BEING COMPLETE... 

CHEW0074 

00201 

76* 


130 

CONTINUF 

CHEW0075 

00202 

77* 




IF (L.EO.-l) GO TO 130 

CHEW0076 

00202 

78* 

c 

* 

* 

CHECK FOR END-OF-FILE MARK... 

CHEW0077 

00204 

79* 




IF ( L.FQ.-2) GO TO 200 

CHEW0078 

00204 

80* 

c 

* 

* 

ZERO CONSECUTIVE END-OF-FILE MARK COUNTER... 

CHEW0079 

00206 

81* 




KNTFU = 0 

CHEW0080 

00206 

82* 

c 

* 

* 

CHECK FOR READ ERROR... 

CHEW008 1 

00207 

83* 




IF (L.E0.-3.0R.L. E0.-4) GO TO 170 

CHEW0082 

00207 

84* 

c 

* 

* 

CHECK FOR CORRECT RECORD LENGTH... 

CHEW0083 

00211 

85* 




IF (L.E0.80U GO TO 230 

CHEW0084 

00211 

86* 

c 

* 

* 

CHECK AND UPDATE LINE COUNTER... 

CHEW0085 

00213 

87* 




ILINE = I LI.NE + 2 

CHE WOO 86 

00214 

88* 




IF (ILINE. LE.NLINES) GO TO 140 

CHEW0087 

00216 

89* 




ILINE = 3 

CHEW0088 

00217 

90* 




WRITE <6,50) 

CHEW0089 

00221 

91* 


140 

CONTINUE 

CHEW0090 

00221 

92* 

c 

* 

* 

WRITE ERROR MESSAGE... 

CHEW0091 

00222 

93* 




WRITE (6,10 )NFI LE , NREC,L 

CHEW0092 

00227 

94* 




IF (MICR0T.NE.17) GO TO 160 

CHEW0093 

00231 

95* 




MLINE = ML I NE + 2 

CHEW0094 

00232 

96* 




IF (KLINE. LE.NLINES) GO TO 150 

CHEW0095 

00234 

97* 




MLINE =3 

CHEW0096 

00235 

98* 




WRITE (MICROT , 50) 

CHEW0Q97 
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00237 

99* 


150 

CONTINUE 


CHEW0098 

00240 

100* 



WRITE ( MICROT, 10 ) NFILE, NREC, L 


CHEW0099 

00245 

101* 


160 

CONTINUE- 


CHEW0100 

00246 

102* 



IF ( NREC .EQ. 1) N = N + 5 


CHEW0101 

00250 

103* 



IF (NREC .NE. 1) N = N + 6 


CHEW0102 

00252 

104* 



IFLIP = 1 


CHEW0103 

00253 

105* 



GO TO 120 


CHE WO 104 

00253 

106* 

C 

* * 

RE-ENABLE UNIT... 


CHEW0105 

00254 

107* 


170 

CONTINUE 


CHEW0106 

00255 

108* 



CALL NTRAN (UNIT, 22) 


CHEW0107 

00255 

109* 

C 

* * 

UPDATE AND CHECK LINE CONTROL... 


CHEW0108 

00256 

110* 



ILINE = ILINE + 2 


CHEW0109 

00257 

111* 



IF (ILINE. LE.NLINESJ GO TO 180 


CHEW0110 

00261 

112* 



ILINE = 3 


CHEW0111 

00262 

113* 



WRITE (6,50) 


CHEW0112 

00264 

114* 


180 

CONTINUE 


CHEW01 13 

00264 

115* 

C 

* * 

WRITE ERROR MESSAGE... 


CHEW01 14 

00265 

116* 



WRITE ( 6,20) NFILE *NREC 


CHEW0115 

00271 

117* 



IF (MICROT.NE. 17) GO TO 160 

■ 

CHEW0U6 

00273 

118* 



MLINE = MLINE + 2 


CHEW0117 

00274 

119* 



IF (MLINE. LE.NLINES) GO TO 190 


CHEW0118 

00276 

120* 



MLINE = 3 


CHEW0119 

00277 

121* 



WRITE ( MICROT , 50) 


CHEW0120 

00301 

122* 


190 

CONTINUE 


CHEW0121 

00302 

123* 



WRITE (MICROT, 20INFILE, NREC 


CHEW0122 

00306 

124* 



GO TO 160 


CHEW0123 

00306 

125* 

c 

* * 

RE-ENABLE TAPE UNIT... 


CHEW0124 

00307 

126* 


200 

CONTINUE 


CHEW0125 

00310 

127* 



CALL NTRAN (UNIT, 22) 


CHEW0126 

00311 

128* 



N =0 


CHEW0127 

00312 

129* 



NREC = 0 


CHEW0128 

00312 

130* 

c 

* * 

CHECK FOR MAX NUMBER OF CONSECUTIVE END 

OF FILE MARKS... 

CHEW0129 

00313 

131* 



IF ( KNTFIL .GT . MX FILE ) GO TO 220 


CHEW0130 

00313 

132* 

c 

* * 

RESET FLAGS AND PUT END-OF-FILE MARK ON 

PLTAPE... 

CHEW0131 

00315 

133* 



IFLAG = 1 


CHEW0132 

00316 

134* 



KNTFIL = KNTFIL + 1 


CHEW0133 

00316 

13 5* 

c 

* * 

CONSECUTIVE END-OF-FILE MARKS DOES NOT MEAN A PULSE HAS BEEN 

CHEW0134 

00316 

136* 

c 

* * 

PROCESSED... 


CHEW0135 

00317 

137* 



IF (KNTFIL. GT.l) GO TO 120 


CHEW0136 

00321 

138* 



NFILE = NFILE + 1 


CHEW0137 

00322 

139* 



IR =1 


CHEW0138 
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00323 

140* 



LAST = 1 

CHEW0139 

00324 

141* 



GO TO 330 

CHEW0140 

00325 

142* 


210 

CONTINUE 

CHEW0141 

00326 

143* 



ION = 0 

CHEW0142 

00327 

144* 



JON = 0 

CHEW0143 

00330 

145* 



IENO = 1 

CHEW0144 

00331 

146* 



IF ( I PLOT .NE. 01 END FILE PLTAPE 

CHEW0145 

00331 

147* 

C 

* * 

WRITE END-OF-PROCESSING MESSAGE ON OUTPUT TAPE AND MICROFILM TAPE 

-CHEW0146 

00333 

148* 



WRITE (6,40) PCOUNT ,IRUNNG*TIMLST 

CHEW0147 

00340 

149* 



IF (MICROT. EQ. 17) WRITE ( MICROT ,401 PCOUNT »IRUNNO»TI MLST 

CHEW0148 

00346 

150* 



TIMLST = 0.0 

CHEW0149 

00347 

151* 



GO TO 240 

CHEW0150 

00347 

152* 

c 

* * 

WRITE ’TOO MANY CONSECUTIVE END-OF-FILE MARKS* MESSAGE AND QUIT.. 

•CHEW0151 

00350 

153* 


220 

CONTINUE 

CHEW0152 

00351 

154* 



WRITE ( 6»30)KNTFIL*NFILE 

CHEW0153 

00355 

155* 



IF ( MICROT. EQ. 17) WRITE (MICROT, 30) KNTFIL, NFILE 

CHEW0154 

00362 

156* 



STOP 

CHEW0155 

00363 

157* 


230 

CONTINUE 

CHEW0156 

00364 

158* 



IF (IFLIP.EQ.O) GO TO 240 

CHEW0157 

00366 

159* 



IF (ION .EQ. 0) N = N + 1 

CHEW0158 

00370 

160* 



IFLIP = 0 

CHEW0159 

00370 

161* 

c 

* * 

CHECK FOR FIRST ON A NEW FILE... 

CHEW0160 

00371 

162* 


240 

CONTINUE 

CHEW0161 

00 372 

163* 



IF (IFLAG.EQ.O) GO TO 250 

CHEW0162 

00372 

164* 

c 

* * 

INCREASE THE PULSE COUNTER... 

CHEW0163 

00374 

165* 



PCOUNT = PCOUNT + 1 

CHEW0164 

00374 

166* 

c 

* * 

RESET FLAG AND CHECK FOR MAXIMUM PULSES... 

CHEW0165 

00375 

167* 



IFLAG = 0 

CHEW0166 

00376 

168* 



IF (PCOUNT. GT.NP) GO TO 110 

CHEW0167 

00400 

169* 



IF ( I END.EQ. 1 ) GO TO 120 

CHEW0168 

00400 

170* 

c 

* * 

INITIALIZE ALL SUBROUTINES THAT NEED IT... 

CHEW0169 

00402 

171* 


250 

CONTINUF 

CHEW0170 

00403 

172* 



GO TO (260,270) ,IR 

CHEW0171 

00404 

173* 


260 

CONTINUE 

CHEW0172 

00405 

174* 



IR =2 

CHE WO 173 

00406 

175* 



IRUNNO = IDATIN(l) 

CHEW0174 

00407 

176* 



INITL = 1 

CHEW0175 

00410 

177*' 



LAST =0 

CHEW0176 

00411 

178* 



I SEND = 1 

CHEW0177 

00412 

179* 



LOOK = 0 

CHE WO 178 

00413 

180* 



ISCAN = 0 

CHEW0179 
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00414 

181* 



ITON = 0 



CHEW0180 

00415 

182* 



CALL CDNPUT 



CHEW01 81 

00416 

183* 



CALL FILTP.2 



CHEW0182 

00417 

184* 



CALL SWAGEP 



CHEW0183 

00420 

185* 



INITL = 0 



CHEW0184 

00421 

186* 



IBL = 1 



CHEW0185 

00422 

187* 



CALL OUTPUT 



CHEW0186 

00423 

188* 



IBL = 0 



CHEW0187 

00423 

189* 

C 

* * 

UNPACK DATA. STORED AS THREE TWELVE 

BIT WORDS... 


CHEW0188 

00424 

190* 


270 

CONTINUE 



CHEW0189 

0042 5 

191* 



DO 280 1=1,801 



CHEW0190 

00430 

192* 



11 =1*3-2 



CHEW0191 

00431 

193* 



12 =1*3-1 



CHEW0192 

00432 

194* 



13 =1*3 



CHEW0193 

00433 

195* 



OAT( 1 1) = ELD (0,12,1 DA TIN(IU 



CHE WO 194 

00434 

196* 



DAT (121 = FLO 112, 12,1 DATIN(II) 



CHEW0195 

00435 

197* 



DAT(I3J = FLO l 24, 12, IDATIN( ID 



CHEW0196 

00436 

198* 


280 

CONTINUE 



CHEW0197 

00436 

199* 

C 

* * 

STORE UNPACKED DATA INTO THE WORKING 

ARRAY... 


CHEW0198 

00440 

200* 



M = 1 



CHEW0199 

00441 

201* 



ICC = 1 



CHEW0200 

00442 

202* 



KM =1 



CHEW020 1 

00443 

203* 



DO 320 1=4,2403 



CHEW0202 

00446 

204* 



IF ( M.EQ.31) GO TO 290 



CHEW0203 

00450 

205* 



IF (M.FQ.41) GO TO 300 



CHEW0204 

00452 

206* 



IF (M.SQ.51) GO TO 300 



CHEW0205 

00454 

207* 



GO TO 310 



CHEW0206 

00455 

208* 


290 

CONTINUE 



CHEW0207 

00456 

209* 



ICC = -ICC 



CHEW0208 

00457 

210* 



IF (ICC .EQ. 1 » M - 41 



CHEW0209 

00461 

211* 



IF (ICC .EQ. -1) M = 31 



CHEW02 10 

00463 

212* 



GO TO 310 



CHEW02 1 1 

00464 

213* 


300 

CONTINUE 



CHEW0212 

00465 

214* 



M = 1 



CHEW0213 

00466 

215* 



KM = KM + 1 



CHEW0214 

00467 

216* 


310 

CONTINUE 



CHEW02 15 

00470 

217* 



STORE ( KM»M ) = DAT < I > 



CHEW0216 

00471 

218* 



M = M + 1 



CHEW0217 

00472 

219* 


320 

CONTINUE 



CHEW0218 

00474 

220* 


330 

CONTINUE 



CHEW02 19 

00475 

221* 



RETURN 
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00476 222* END CHEW0221 

END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 *DIAGNOSTIC* MESSAGE! S 1 


CHEWER 

SYMBOLIC 

25 

JUN 

70 

12E26S47 

0 

01506634 

14 

222 

(DELETED! 

CHEWER CODE 

RELOCATABLE 

25 

JUN 

70 

12E26C47 

1 

01514700 

60 

1 

(DELETED! 







0 

01514774 

14 

60 
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E FOR,* CR2TAP, CR2TAP 14 JUL 70 17E 5E56.108 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17E05E56 


SUBROUTINE CR2TAP ENTRY POINT 000074 
STORAGE USED (BLOCK, NAME, LENGTH) 


0001 

★CODE 

000101 

0000 

★ DATA 

000036 

0002 

★BLANK 

000000 

0003 

UNITS 

OOC 004 


EXTERNAL REFERENCES (BLOCK, NAME) 


0004 

NREWS 

0005 

NRDUi 

0006 

NIO IS 

0007 

NI02S 

0010 

NWDUS 

0011 

NWEFS 

0012 

NERR3S 


STORAGE 

ASSIGNMENT FOR 

VARIABLES 

(BLOCK, 

TYPE, 

RELATIVE 

LOCATION, NAME) 







0000 

000020 

10F 

0001 

000011 

1 14G 

0001 

000023 122G 

0001 

000041 

131G 

0001 

000003 

20L 

0000 I 
0003 R 

000017 

000002 

I 

PLTAPE 

0000 I 
0003 R 

000000 

000003 

IDATA 

UNIT 

0000 

I 000016 I END 

0003 ] 

: oooooo 

I OTA PE 

0003 I 

000001 

MICROT 


00101 

1* 

SUBROUTINE CR2TAP 


CR2T0000 

00103 

2* 

DIMENSION 

IDATAf 14) 

CR2T0001 

00104 

3* 

COMMON / UNITS / 

TOTAPE, MICROT, PLTAPE, UNIT 

CR 2T0002 

00105 

4* 

DATA IFND 

/ 6HCASEND 

/CR2T0003 
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00107 

5* 



10 

FORMAT <X3A6,A2) 

CR2T0004 

00107 

6* 

C 

* 

* 

REWIND OUTPUT TAPE... 

CR2T0005 

00110 

7* 




REWIND IOTAPE 

CR2T0006 

00110 

8* 

c 

* 

* 

READ A CARD IMAGE FROM SYSTEM INPUT TAPE... 

CR2T0007 

00111 

9* 



20 

CONTINUE 

CR2T0008 

00112 

10* 




READ ( 5 1 10) (I DATA (I)»I=l,l4) 

CR2T0009 

00112 

11* 

c 

* 

* 

WRITE CARD IMAGE ON OUTPUT TAPE... 

CR2T0010 

00120 

12* 




WRITE (IOTAPE, 10) (IDATA (I >,1 = 1,14) 

CR2T0011 

00120 

13* 

c 

* 

* 

WRITE CARD IMAGE ON MICROFILM... 

CR2T0012 

00126 

14* 




IF ( MICROT . E0. 17) WRITE ( MICROT, 10) ( IDATA < I ) ,1=1 , 14) 

CR2T0013 

00126 

15* 

c 

* 

* 

CHECK FOR END OF DATA DECK... 

CR2T0014 

00135 

16* 




IF (IDATA ( 1 ). NE. IEND) GO TO 20 

CR2T0015 

00135 

17* 

c 

* 

* 

PUT END-OF-FILE MARK ON OUTPUT TAPE... 

CR2T0016 

00137 

18* 




END FILE IOTAPE 

CR2T0017 

00137 

19* 

c 

* 

* 

REWIND OUTPUT TAPE... 

CR2T0018 

00140 

20* 




REWIND IOTAPE 

CR2T0019 

00141 

21* 




RETURN 

CR2T0020 

00142 

22* 




END 

CR2T0021 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 
CR2TAP SYMBOLIC 

CR2TAP CODE RELOCATABLE 


0 ^DIAGNOSTIC* MESSAGE(S) 

25 JUN 70 12E26G48 0 01516504 14 22 (DELETED) 

25 JUN 70 12G26S48 1 01517170 24 1 (DELETED) 

0 01517220 14 8 


HDG 
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HD011C-FILTR1 

6 FOR ,♦ FILTR ltFILTR 1 

UNIVAC 1100 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONF ON 14 JUL 70 AT 17S05657 


SUBROUTINE FILTR1 

ENTRY POINT 000532 

STORAGE USED 

(BLOCK, 

NAME, LENGTH) 

0001 

♦CODE 

000545 

0000 

♦DATA 

000043 

0002 

♦BLANK 

015607 

0003 

FLAGS 

000005 

0004 

ROWS 

000015 


EXTERNAL REFERENCES (BLOCK, NAME ) 
0005 NERR34 


STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION 


0001 


000053 

10L 

0001 


000260 

100L 

0001 


000312 

0001 


000034 

125G 

0001 


000403 

140L 

0001 


000425 

0001 


000512 

190L 

0001 


000063 

20L 

0001 


000433 

0001 


000130 

40 L 

0001 


000160 

50L 

0001 


000200 

oooi 


000250 

90L 

0002 

R 

000000 

ENGDAT 

0002 

R 

001604 

0000 

I 

-000003 

I 

0000 

I 

000000 

IADD 

0004 

I 

000000 

0000 

I 

000012 

IM1 

0004 

I 

000002 

INITL 

0004 

I 

•000003 

0003 

I 

000000 

I SCAN 

0003 

I 

000001 

I SEND 

0003 

I 

000002 

0004 

I 

000007 

JON 

0004 

I 

■000010 

JROW 

0004 

I 

000011 

0000 

I 

000005 

KM 

0000 

I 

000006 

KMP1 

0000 

I 

■000011 

0003 

I 

000004 

LOOK 

0004 

I 

000014 

LSTPTS 

0000 

I 

-000007 

0000 

p 

000002 

THMIN 
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NAME) 


110L 

0001 

000006 

117G 

0001 


000337 

120L 

1 50L 

0001 

000445 

160L 

0001 


000453 

170L 

267G 

0001 

000066 

30L 

0001 


000507 

3106 

60L 

0001 

000221 

70L 

0001 


000230 

80L 

ENGRAT 

0002 

R 002506 

FILT1 

0002 

R 

006476 

FILT2 

IBEGIN 

0004 

I 000001 

IFV 

0000 

I 

000004 

IJ 

ION 

0004 

I 000004 

IQUIT 

0004 

I 

000005 

I ROW 

ITON 

0000 

I -000013 

J 

0004 

I 

•000006 

JEND 

KKPBEG 

0004 

I -000012 

KKPEND 

0004 

I 

000013 

KKSAVE 

KPBEG 

OOOO 

I 000010 

KPEND 

0003 

i 

000003 

LAST 

M 

0002 

R 007433 

STORE 

0000 

R 

000001 

THMAX 
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00101 

1* 


SUBROUTINE FILTR1 


FLTIOOOO 

00103 

2* 


COMMON 

ENGDAT!9,100> ,ENGRAT 19,501 , FILTH 40, 51) 

FLT10001 

00103 

3* 


1 

, FI LT2(9,53) , STORE! 60 , 53) 

FLT10002 

00104 

4* 


COMMON / FLAGS 

/ ISCAN,ISEND,ITON* 

LAST, LOOK 

FLT10003 

00105 

5*' 


COMMON / ROWS 

/ IBEGIN,IFV,INITL» 

I ON, I QUIT, I ROW, JEND, JON, JROW 

FLT10004 

00105 

6* 


1 

, KKPBEG, KKPEND»KKS AVE ,LSTPTS 

FLT10005 

00106 

74 


DATA I ADD 

/ 10 


/FLT10006 

00110 

84 


DATA THMAX 

/ 3300. 


/FLT10007 

00112 

94 


DATA thmin 

/ 600. 


/FLT10008 

00114 

104 


IF (LOOK.EO.l) 

GO TO 150 


FLT10009 

00116 

114 


DO 120 1=1,30 



FLT10010 

00121 

124 


IJ 

= I + IADD 


FLT10011 

00122 

134 


KM 

= 2*1-1 


FLT10012 

00123 

144 


KMP 1 

= KM + 1 


FLT10013 

00124 

154 


DO 120 M=1 , 50 



FLT10014 

00127 

164 


IF (M.GT.30) GO TO 10 

' 

FLT10O15 

00131 

174 


IF (M.EQ.IFV) 

GO TO 30 


FLT10016 

00133 

184 


FTLTK I J,M) 

= ( STORE! KM, M) + STORE ( KMP1 , HI > / 2iO 

FLT10017 

00134 

194 


GO TO 120 



FLT100 18 

00135 

20* 

10 

CONTINUE 



FLT100 19 

00136 

214 


IF (M.GT.40) GO TO 20 


FLT10020 

00140 

22* 


FILTH I J ,M ) 

= STORE! KM, M) 


FLT10021 

00141 

23* 


GO TO 120 



FLT10022 

00142 

24* 

20 

CONTINUE 



FLT10023 

00143 

254 


FlLTltlJjM) 

= ST0RE(KMP1,M) 


FLT10024 

00144 

26* 


GO TO 120 



FLT10025 

00145 

274 

30 

CONTINUE 



FLT10026 

00146 

2 8* 


IF !STORE(KM*IFV). LE.THHI N) GO TO 60 

FLT10027 

00150 

29* 


IF { STORE (KM, IFVi.GE .THMAX) GO TO 80 

FLT10028 

00152 

30* 


IF ( STORE ( KMP1 

,IFV) .LE. THMIN) GO TO 

40 

FLT10029 

00154 

31* 


IF ( STORE ( KMP1 

,IFV) .GE. THMAX) GO TO 

70 

FLT10030 

00156 

32* 


IF (ION.EQ.O) 

GO TO 50 


FLT10031 

00160 

33* 

40 

CONTINUE 



FLT 10032 

00161 

34* 


FILTH IJjIFV) 

= AMIN1(ST0PE(KM,IFV) 

., ST0RE(KMP1,IFV)) 

FLT10033 

00162 

35* 


IF (ION.LE.O) 

GO TO 120 


FLT10034 

00164 

36* 


ION 

= -1 


FLT10035 

00165 

37* 


kpend 

= KM - 1 


FLT 10036 

00166 

38* 


GO TO 120 



FLT10037 

00167 

39* 

50 

CONTINUE 



FLT10038 

00170 

40* 


FTLTKI J,IFV) 

= AMAX1(ST0RF(KM,IFV) 

, STORE (KMP1, IFV ) ) 

FL T 10039 

00171 

41* 


GO TO 120 



FLT10040 
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00X72 

42* 

60 

CONTINUE 



FLT10041 

00173 

43* 


IF ( STORE ( KMP1 »I FV) . LE .THMIN ) 

GO 

TO 110 

FLT10042 

00175 

44* 


IF ( STORE (KMP1 , I F V) .GE.THMAX) 

GO 

TO 70 

FLT10043 

00177 

45* 


GO TO 50 



FLT10044 

00200 

46* 

70 

CONTINUE 



FLT10045 

00201 

47* 


IF ( ION .EQ. 0) ION = 1 



FLT10046 

00203 

48* 


KPBEG = KMP1 



FLT10047 

00204 

49* 


GO TO 50 



FLT10048 

00205 

50* 

80 

CONTINUE 



FLT 10049 

00206 

51* 


IF (ST0RE(KMP1,IFV).LE.THMIN) 

GO 

TO 90 

FLT10050 

00210 

52* 


IF ( ST ORE ( KMP1 »IFV ) .GE.THMAX) 

GO 

TO 100 

FLT10051 

00212 

53* 

90 

CONTINUE 



FLT10052 

00213 

54* 


IF (ION.LE.O) GO TO 120 



FLT 10053 

00215 

55* 


ION = -1 



FLT10054 

00216 

56* 


KPENO = KM 



FLT10055 

00217 

57* 

100 

CONTINUE 



FLT10056 

00220 

58* 


FILTKIJtIFV) = AMAX1 ( STORE! KM, I F V) , STORE ( KMP1 , IFV ) ) 

FLT10057 

00221 

59* 


IF (ION.EQ.l) GO TO 120 



FLT10058 

00223 

60* 


IF (ION .EQ. 0) ION = 1 



FLT 10059 

00225 

61* 


KPBEG = KM 



FLT10060 

00226 

62* 


GO TO 120 



FLT10061 

00227 

63* 

110 

CONTINUE 


' 

FLT 100 62 

00 230 

64* 


FILTl(IJ.IFV) = (STORE(KM,IFV) 


STORE(KMPl * IFV 1 ) / 2*0 

FLT10063 

00231 

65* 


IF ( ION.LE.O) GO TO 120 



FLT10064 

00233 

66* 


ION = -1 



FLT10065 

00234 

67* 


KPEND = KM - 1 



FLT10066 

00235 

68* 

120 

CONTINUE 



FLT10067 

00240 

69* 


IF (ION) 130,190,140 



FLT10068 

00243 

70* 

130 

CONTINUE 



FLT10069 

00244 

71* 


KKPEND = KPENO / 2 + 1 



FLT10070 

00245 

72* 


IF < (KPEND - 2 * (KPEND / 2)) 

•EQ. 0) KKPEND - KPEND / 2 

FLT 100 71 

00247 

73* 


IF ( L00K.GE.2 ) GO TO 190 



FLT10072 

00251 

74* 


IF ( ITON .NE. 1) ION = 0 



FLT10073 

00253 

75* 


ITON = 0 



FLT100 74 

00254 

76* 


LOOK = 0 



FLT10075 

00255 

77* 


GO TO 190 



FLT10076 

00256 

78* 

140 

CONTINUE 



FLT10077 

00257 

79* 


KKPBEG = KPBEG / 2 + 1 



FLT10078 

00260 

80* 


IF ((KPBEG - 2 * (KPBEG / 2)) 

.EQ. 0) KKPBEG = KPBEG / 2 

FLT 10079 

00262 

81* 


ITON = 1 



FLT10080 

00263 

82* 


LOOK = LOOK + 1 



FLT10081 
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00264 

83* 


GO TO 190 


FLT10082 

00265 

84* 

150 

CONTINUE 


FLT10083 

00266 

85* 


DO 160 1=1,60 


FLT10084 

00271 

86* 


IF (STORE ( I , IFVI 

•GE.THMAXI GO TO 160 

FLT10085 

00273 

87* 


ION 

0 

FLT10086 

00274 

88* 


ITON = 

0 

FLT10087 

00275 

89* 


LOOK 

0 

FLT10088 

00276 

90* 


GO TO 170 


FLT10089 

00277 

91* 

160 

CONTINUE 


FLT10090 

00301 

92* 


LOOK 

LOOK + 1 

FLT 10091 

00302 

93* 

170 

CONTINUE 


FLT10092 

00303 

94* 


ISCAN 

1 

FLT10093 

00304 

95* 


IF (I.LE.l.OR.I. 

GE .601 GO TO 190 

FLT10094 

00306 

96* 


IM1 

I - 1 

FLT 10095 

00307 

97* 


DO 180 J= 1 , 1 Ml 


FLT10096 

00312 

98* 


STORE! J, IFVI = 

STORE ( I , IFVI 

FLT10097 

00313 

99* 

180 

CONTINUE 


FLT10098 

00315 

100* 

190 

CONTINUE 


FLT 10099 

00316 

101* 


RETURN 


FLT10100 

00317 

102* 


END 


FLT 10101 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 *DIAGNOSTIC* MESSAGE(S) 


FILTR1 

SYMBOLIC 

25 

JUN 

70 

12626G51 

0 

01517400 

14 

104 

(DELETED! 

FILTR1 CODE 

RELOCATABLE 

25 

JUN 

70 

12G26651 

1 

01522260 

24 

1 

(DELETED) 







0 

01522310 

14 

37 



G 


HDG 


HD011C-FILTR2 
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S FOR,* FILTR2,FILTR2 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17605659 


SUBROUTINE FILTR2 

ENTRY POINT 001723 

STORAGE USED 

(BLOCK, 

NAME, LENGTH) 

0001 

*CODE 

001734 

0000 

*DATA 

000061 

0002 

♦BLANK 

015607 

0003 

FLAGS 

000005 

0004 

ROWS 

000015 

0005 

TIME 

000001 


EXTERNAL REFERENCES t BLOCK , NAME) 

0006 ZERO 

0007 AVRGR 

0010 SHIFT 

0011 NERR2i 

0012 NERR3$ 


STORAGE 

ASSIGNMENT FOR 

VARIABLES 

(BLOCK 

, TYPE, 

RELATIVE 

0001 

000054 

10L 

0001 

000201 

iOOL 

0001 

0001 

000344 

140L 

0001 

000405 

1 50L 

0001 

0001 

000475 

180L ' 

0001 

000542 

1 90L 

0001 

0001 

000601 

220L 

0001 

000645 

230L 

0001 

0001 

000732 

270L 

0001 

000767 

280L 

0001 

0001 

001072 

310L 

0001 

001112 

320L 

0001 

0001 

001275 

3 60L 

0001 

001306 

370L 

0001 

0001 

001416 

410L 

0001 

001442 

42 OL 

0001 

0001 

001552 

460L 

0001 

001605 

470L 

0001 

0001 

000133 

70L 

0001 

001637 

701G 

0001 

0001 

001657 

72 6G 

0001 

001670 

735G 

0001 
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LOCATION, NAME) 


000247 

110L 

0001 

000265 

120L 

0001 

000303 

130L 

000441 

160L 

0001 

000145 

167G 

0001 

000452 

170L 

000067 

20L 

0001 

000546 

200L 

0001 

000557 

210L 

000650 

240L 

0001 

000655 

250L 

0001 

000705 

260L 

001006 

290L 

0001 

000102 

30L 

0001 

001022 

300L 

001130 

330L 

0001 

001174 

340L 

0001 

001237 

350L 

001332 

3 80L 

0001 

001401 

390L 

0001 

001405 

400L 

001507 

430L 

0001 

001512 

440L 

0001 

001513 

450L 

000106 

50L 

0001 

001705 

550L 

0001 

000122 

60L 

001641 

704G 

0001 

001644 

712G 

0001 

001656 

723 G 

001671 

740G 

0001 

001674 

74 6G 

0001 

000163 

90L 
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0000 

R 

000001 

DEIT 

0002 

R 

000000 

ENGDAT 

0002 

R 

001604 

ENGRAT 

0002 

R 002506 

FILT1 

0002 

R 

006476 

FILT2 

0000 

I 

000024 

I 

0004 

I 

000000 

I BEGIN 

0000 

I 

000013 

ICENTR 

0000 

I -000016 

ICNT1 

0000 

I 

000017 

1CNT2 

0000 

1 

000021 

TCNT3 

0000 

I 

000022 

TCNT4 

0004 

I 

000001 

IFV 

0004 

I 000002 

INITL 

0004 

I 

000003 

ION 

0000 

I 

000014 

IPIV 

0000 

I 

000007 

I P 0 1 NT 

0004 

T 

000004 

I QUIT 

0004 

I -000005 

IROW 

0003 

r 

000000 

ISCAN 

0003 

1 

000001 

I SEND 

0000 

I 

000004 

T START 

0000 

I 

000006 

ISTOP 

0003 

I 000002 

ITON 

0000 

i 

000023 

J 

0000 

I 

000020 

JCENTR 

0004 

I 

000006 

JEND 

0000 

I 

000011 

JJ 

0004 

I 000007 

JON 

0004 

i 

000010 

-JROW 

0000 

1 

000010 

KK 

0004 

I 

000011 

KKPBEG 

0004 

I 

000012 

KKPEND 

0004 

1-000013 

KKSAVE 

0003 

i 

000003 

LAST 

0000 

I 

000000 

LOC 

0003 

I 

000004 

LOOK 

0004 

I 

000014 

LSTPTS 

0005 

I 000000 

N 

0000 

i 

000002 

NOISE 

0002 

R 

007433 

STORE 

0000 

R 

000015 

TREE 

0000 

R 

000012 

TSAVE 

0000 

R 000005 

TTSAVE 

0000 

R 

000003 

TZERO 


00101 

1* 

SUBROUTINE FILTP.2 

FLT20000 

00103 

2* 

COMMON 

ENGDATI9, 100) , ENGRAT (9 , 50) ,FI LT1< 40, 51 ) 

FLT20001 

00103 

3* 

1 ’ 

, FILT2(9,53> , STORE ( 60 ,5 3 ) 

FLT20002 

00104 

4* 

COMMON / FLAGS 

/ ISCAN, ISEND, ITON, LAST, LOOK 

FLT20003 

00105 

5* 

COMMON t ROWS 

/ I BEGIN, IFV, INITL, ION, I QUIT, IROW, JEND, JON, JROW 

FLT20004 

00105 

6* 

1 

, KKPBEG, KKPEND, KKSAVE, LSTPTS 

FLT20005 

00106 

7* 

COMMON ! TIME 

/ N 

FLT20006 

00107 

8 * 

DATA DELT 

/ 0.02 

/FLT20007 

00111 

9* 

DATA NOISE 

/ 1 

/FLT20008 

00113 

10* 

OATA TZERO 

/ 0.0 

/FLT20009 

00115 

11* 

IF (INITL.FQ.il 

GO TO 470 

FLT20010 

00117 

12* 

ISEND 

1 - ISEND 

FLT20011 

00120 

13* 

IF (ION .EQ. 1) 

NOISE = 0 

FLT20012 

00122 

14* 

IF (ION .EQ. -1 

.AND. NOISE .EQ. 1) ION = 0 

FLT20013 

00124 

15* 

IF (ISEND. EQ.O) 

GO TO 20 

FLT20014 

00 126 

16* 

IF (ION. EQ.-l. AND. KKPEND. EQ.O. ANO.ISTART.EQ.il> GO TO 10 

FLT20015 

00130 

17* 

GO TO 550 


FLT200 16 

00131 

18* 

10 CONTINUE 


FLT20017 

00132 

19* 

KKSAVE 

KKSAVE - 1 

FLT20018 

00133 

20* 

TTSAVE = 

FI L T 2( KKSAVE, 51) 

FLT20019 

00134 

21* 

I START 

6 

FLT20020 

00135 

22* 

ISTOP 

I START + 4 

FLT20021 

00136 

23* 

GO TO 550 


FLT20022 

00137 

24* 

20 CONTINUE 


FLT20023 

00140 

25* 

CALL ZERO 


FLT20024 

00141 

26* 

GO TO (30,120,320), IPOINT 

FLT20025 

00142 

27* 

30 CONTINUE 


FLT20026 

00143 

2 8* 

IF (ION) 290,40 

,90 

FLT20027 
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00146 

294 


40 

CONTINUE 




FLT20028 

00146 

30* 

C 

*********************** ****** ******** ******************************* **FLT 20 029 

00146 

31* 

C 


ION = 0, FILTER DATA PRIOR TO ENGINE FIRE 

SIGNAL. 

4FLT20030 

00146 

32* 

C 

********************************************************************** FLT200 31 

00147 

33* 


50 

CONTINUE 




FLT20032 

00150 

34* 



I START = I START + 5 




FLT200 33 

00151 

35* 



I STOP = I START + 4 




FLT20034 

00152 

36* 



IF ( IST0P.LE.40) GO TO 60 




FLT20035 

00154 

37* 



I START = 6 




FLT20036 

00155 

3 8* 



GO TO 70 




FLT20037 

00156 

39* 


60 

CONTINUE 




FLT200 38 

00157 

40* 



KK = KK + 1 




FLT20039 

00160 

41* 



CALL AVRGR (KK»I START, I STOP) 




FLT20040 

00161 

42* 



GO TO 50 




FLT20041 

00162 

43* 


70 

CONTINUE 




FLT20042 

00163 

44* 



KKSAVE = KK 




FLT20043 

00164 

45* 



KK =0 




FLT20044 

00165 

46* 



CALL SHIFT 




FLT20045 

00166 

47* 



DO 80 JJ=1, KKSAVE 




FLT20046 

00171 

48* 



N = N +■ 1 




FLT20047 

00172 

49* 



FILT2IJJ,51) = TZERO + (N - 

1) * DELT 



FLT20048 

00173 

50* 


80 

CONTINUE 




FLT20049 

00175 

51* 



TSAVE = FILT2IKKSAVE 

,51) 



FLT20050 

00176 

52* 



GO TO 550 




FLT20051 

00177 

53* 


90 

CONTINUE 




FLT20052 

00177 

54* 

C 

**************************************************************** ******FLT 20053 

00177 

55* 

C 


ION = 1, FIRE SIGNAL * ON* IS 

DETECTED. CENTER 

WINDOW AND 

♦FLT20054 

00177 

56* 

C. 


CONTINUE FILTERING 

PROCESS. 



*FLT20055 

00177 

57* 

C 

**********************************************************************FLT20056 

00200 

58* 



IF ( 1CENTR.EQ. 1) GO TO 250 




FLT20057 

00202 

59* 



KK =0 




FLT20058 

00203 

60* 



I START = 6 




FLT20059 

00204 

61* 



TBEGIN = KKPBEG + 10 




FLT20060 

00205 

62* 



IF ( IBEGIN.GT.35> GO TO 270 




FLT20061 

00207 

6 3* 


100 

CONTINUE 




FLT20062 

00207 

64* 

c 

*********************************************** ***********************FLT200 63 

00207 

65* 

c 


SCAN COLUMN OF FILT1 ARRAY CONTAINING THE 

FIRE 

CHANNEL TO 

LOCATE 4FLT20064 

00207 

66* 

c 


THF ROW WHICH FLAGS ENGINE COMMAND «0N*. 



♦FLT20065 

00207 

67* 

c 

**********************************************************************FLT20066 

00210 

68* 



ISTART = ISTART + 5 




FLT20067 

00211 

69* 



ISTOP = ISTART + 4 




FLT20068 



A4-36 


HD011C-FILTR2 


DATE 140770 PAGE 


42 


00212 

70* 



TF ( IBEGIN.GE.ISTART.AND.IBEGIN.LE. 

ISTOPI GO TO 

110 

FLT20069 

00214 

71* 



KK = KK + 1 



FLT20070 

00215 

72* 



CALL AVRGR (KK, I START, I STOP) 



FLT20071 

00216 

73* 



M = N + 1 



FLT20072 

00217 

74* 



F I LT2 ( KK , 51 ) = T25RO + (N - 1) * OELT 


FLT20073 

00220 

75* 



GO TO 100 



FLT20074 

00221 

76* 


110 

CONTINUE 



FLT20075 

00221 

77* 

C 

**************************************************** **************** **FLT 20 076 

00221 

78* 

C 


BEGINNING OF FIRING FOUND IN SCAN. 

LOCATE ROW 

POSITION IN FIVE 

*FLT20077 

00221 

79* 

c 


ELEMENT ORDERED SET OF NUMBERS FOR 

FIRST WINDOW 

CENTERING. 

*FLT20078 

00221 

80* 

c 

********************************************************************** FIT 20079 

00222 

81* 



LOC = IBEGIN - ISTART + l 



FLT20080 

00223 

82* 



IF (KK .GE. 1) TSAVE = FILT2{KK,51) 



FLT20081 

00225 

83* 


120 

CONTINUE 



FLT20082 

00226 

84* 



KK = KK + 1 



FLT20083 

00227 

85* 



GO TO ( 130,140,150, 160, 200), LOC 



FLT20084 

00230 

86* 


130 

CONTINUE 



FLT20085 

00231 

87* 



ISTART - ISTART - 2 



FLT20086 

00232 

88* 



TSTOP = ISTART + 4 



FLT20087 

00233 

89* 



CALL AVRGR ( KK, I START, I STOP ) 



FLT20088 

00234 

90* 



IP IV = ISTART + 2 



FLT20089 

00235 

91* 



FILT2IKK.IFV) = F I LT 1 (I PI V , I FV) 



FLT20090 

00236 

92* 



F ILT 2( KK , 51 ) = TSAVE + 0.012 



FLT2009 1 

00237 

93* 



TREF = FILT2(KK,5I) 



FLT20092 

00240 

94* 



TSAVE = TREF 



FLT20093 

00241 

95* 



N =0 



FLT20094 

00242 

96* 



IROW = KK 



FLT20095 

00243 

97* 



ICENTR = 1 



FLT20096 

00244 

98* 



GO TO 240 



FLT20097 

00245 

99* 


140 

CONTINUE 



FLT20098 

00246 

100* 



ISTART = I START - 1 



FLT20099 

00247 

101* 



TSTOP = ISTART + 4 



FLT20100 

00250 

102* 



CALL AVRGR ( KK, I START, I STOP) 



FLT20101 

00251 

103* 



IPIV = ISTART + 2 



FLT20102 

00252 

104* 



FILT2(KK,IFV) = F I LT1 ( I PI V , I FV > 



FLT20103 

00253 

105* 



F I LT2 ( KK, 51 ) = TSAVE + 0.016 



FLT20104 

00254 

106* 



TREF = FILT21 KK , 51 ) 



FLT20105 

00255 

107* 



TSAVE = TREF 



FLT20106 

00256 

108* 



N =0 



FLT20107 

00257 

109* 



IROW = KK 



FLT20108 

00260 

110* 



ICENTR = 1 



FLT20109 
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00261 

111* 

GO TO 240 


FLT201LO 

00262 

112* 

150 CONTINUE 


FLT20111 

00263 

113* 

CALL AVPGP (KK 

, ISTART, ISTOP) 

FLT20112 

00264 

114* 

TP IV 

= I START + 2 

FLT20113 

00265 

115* 

FILT2(KK,IFV) 

= FILT1 ( I PI V»IFVI 

FLT20114 

00266 

116* 

F ILT2<KK,51) 

= TSAVE + 0.020 

FLT20115 

00267 

117* 

TP EF 

= FILT2(KK,5U 

FLT20116 

00270 

118* 

TSAVE 

= TREF 

FLT20117 

00271 

119* 

N 

= 0 

FLT20118 

00272 

120* 

IROW 

= KK 

FLT20119 

00273 

121* 

ICENTP 

= l 

FLT20120 

00274 

122* 

GO TO 240 


FLT20121 

00275 

123* 

160 CONTINUE 


FLT20122 

00276 

124* 

GO TO {170,180 

,190) , ICNT1 

FLT20123 

00277 

125* 

170 CONTINUE 


FLT20124 

00300 

126* 

ISTART 

= ISTART - 2 

FLT20125 

00 301 

127* 

I STOP 

= ISTART + 4 

FLT20126 

00302 

128* 

CALL AVRGR (KK 

, ISTART, ISTOP) 

FLT20127 

00303 

129* 

F ILT2 ( KK , 51 ) 

= TSAVE + 0.012 

FLT20128 

00304 

130* 

N 

= 0 

FLT20129 

00305 

131* 

ICNT1 

= ICNT1 + 1 

FLT20130 

00306 

132* 

GO TO 160 


FLT20131 

00307 

133* 

180 CONTINUE 


FLT20132 

00310 

134* 

KK 

= KK + 1 

FLT20133 

00311 

135* 

’ ISTART 

= ISTOP - 1 

FLT20134 

00312 

136* 

ISTOP 

= ISTART + 4 

FLT20135 

00313 

137* 

CALL AVRGR (KK 

, ISTART, ISTOP) 

FLT20136 

00314 

138* 

IPIV 

= ISTART + 2 

FLT20137 

00315 

139* 

FILT2(KK,IFV) 

= F I LT1 ( I PI V »I FV > 

FLT20138 

00316 

140* 

F ILT2( KK » 51 ) 

= TSAVE + 0.024 

FLT20139 

00317 

141* 

TREF 

= F I LT2 { KK , 51 ) 

FLT20140 

00320 

142* 

TSAVE 

= TREF 

FLT20141 

00321 

143* 

N 

= 0 

FLT20142 

00322 

144* 

IROW 

= KK 

FLT20143 

00323 

145* 

IGNT1 

= ICNTl * 1 

FLT20144 

00324 

146* 

GO TO 160 


FLT20145 

00325 

147* 

190 CONTINUE 


FLT20146 

00326 

148* 

ICNT1 

= 1 

FLT20147 

00327 

149* 

ICENTP 

= 1 

FLT20148 

00330 

150* 

GO TO 240 


FLT20149 

00331 

151* 

200 CONTINUE 


FLT20150 
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00332 

152* 


GO TO (210 

*220f 230) , ICNT2 

FLT20151 

00 333 

153* 

210 

CONTINUE 



FLT20152 

00334 

154* 


I START 


= I START - 2 

FLT20153 

00335 

15 5* 


ISTOP 


= I START + 4 

FLT20154 

00336 

156* 


CALL AVRGR 

<KK,ISTART t ISTOP) 

FIT 20155 

00337 

157*. 


F 1 LT2 ( KK » 51 ) 

= TSAVE +■ 0.012 

FLT20156 

00340 

158* 


ICNT2 


= ICNT2 + 1 

FLT20157 

00341 

159* 


GO TO 200 



FLT20158 

00 342 

160* 

220 

CONTINUE 



FLT20159 

00343 

161* 


KK 


= KK + 1 

FLT20160 

00344 

162* 


I START 


= ISTOP 

FLT20161 

00345 

163* 


ISTOP 


= I START + 4 

FLT20162 

00346 

164* 


CALL AVRGR 

( KK» I START » ISTOP) 

FLT20163 

00347 

• 165* 


IPI V 


= I START + 2 

FLT20164 

00350 

166* 


F ILT2 ( KK 1 1 

FV) 

= FILT1UPI V,IFV) 

FLT20165 

00351 

167* 


F ILT2 ( KK » 51 ) 

= TSAVE + 0.028 

FLT20166 

00352 

168* 


trsf 


= F I LT2 ( KK , 51 ) 

FLT20167 

00353 

169* 


TSAVE 


= TREF 

FLT20168 

00354 

170* 


N 


= 0 

FLT20169 

00355 

171* 


IROW 


= KK 

FLT20170 

00356 

172* 


TCNT2 


= ICNT2 + 1 

FLT20171 

00357 

173* 


GO TO 200 



FLT20172 

00360 

174* 

230 

C1NTINUE 



FLT20173 

00361 

175* 


ICNT2 


= 1 

FLT20174 

00362 

176* 


ICENTR 


= 1 

FLT20175 

00363 

177* 

240 

CONTINUE 



FLT20176 

00364 

178* 


I START 


= ISTART + 5 

FLT20177 

00365 

179* 


ISTOP 


= ISTART + 4 

FLT20178 

00366 

180* 

250 

CONTINUE 



FLT20179 

00367 

181* 


IF (ISTOP. 

LF. 

40) GO TO 260 

FLT20180 

00371 

182* 


LOC 


= 10 - 40 + ISTART 

FLT20181 

00372 

183* 


I START 


■= LOC 

FLT20182 

00373 

184* 


ISTOP 


= LOC + 4 

FLT20183 

00374 

185* 


T TSA VF 


= FI LT2 ( KK f 51 ) 

FLT20184 

00375 

186* 


KKSAVE 


= KK 

FLT201 8 5 

00376 

187* 


KK 


= 0 

FLT20186 

00 377 

188* 


CALL SHIFT 



FLT20187 

00400 

189* 


IPOINT 


= 1 

FLT20188 

00401 

190* 


GO TO 550 



FLT20189 

00402 

191* 

260 

CONTINUE 



FLT20190 

00403 

192* 


KK 


= KK + 1 

FLT20191 
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00404 

193* 



CALL AVRGR < KK, I START, ISTOP) 


FLT20192 

00405 

194* 



N 

= N + 1 


FLT20193 

00406 

195* 



FILT21KK, 51} 

= TSAVE + N * DELT 


FLT20194 

00407 

196* 



FIL*2(KK,52) 

= FILT21KK, 51) - TREE 


FLT20195 

00410 

197* 



GO TD 240 



FLT20196 

00411 

198* 


270 

CONTINUE 



FLT20197 

00412 

199* 



I START 

= ISTART + 5 


FLT20198 

00413 

200* 



ISTOP 

= ISTART + 4 


FLT20199 

00414 

201* 



IF ( ISTOP. GT 

.35} GO TO 280 


FLT20200 

00416 

202* 



KK 

= KK + 1 


FLT2020 1 

00417 

203* 



CALL AVRGR I KK, I START, I STOP 1 


FLT20202 

00420 

204* 



N 

= N + 1 


FLT20203 

00421 

205* 



F ILT2( KK, 51 ) 

= TZERO + (N - 1) * DELT 


FLT20204 

00422 

206* 



GO TO 270 



FLT20205 

00423 

207* 


280 

CONTINUE 



FLT20206 

00424 

208* 



KKSAVE 

= KK 


FLT20207 

00425 

209* 



KK 

= 0 


FLT20208 

00426 

210* 



CALL SHIFT 



FLT20209 

00427 

211* 



LOC 

= IBEGIN - 35 


FLT20210 

00430 

212* 



I START 

= 6 


FLT20211 

00431 

213* 



ISTOP 

= 10 


FLT20212 

00432 

214* 



IPOINT 

= 2 


FLT20213 

00433 

215* 



GD TO 550 



FLT20214 

00434 

216* 


290 

CONTINUE 



FLT202 15 

00434 

217* 

C 

*jtt****#***************************************************************FLT20216 

00434 

218* 

C 


ION = -1, FIRE SIGNAL 'OFF' IS DETECTED. 

CENTFR WINDOW AND 

*FLT20217 

00434 

219* 

C 


CONTINUE FILTERING PROCESS. 


*FLT202 18 

00434 

220* 

c 

*#*#******£****#***#**#:i>:**#*#$*!t!*#**Jic*j)t»:>>:#*iS:*;fi*))c***#*j)t**:**************Fl.T202 19 

00435 

221* 



IF IJCENTR.F 

0.1} GO TO 250 


FLT20220 

00437 

222* 



KK 

= 0 


FLT20221 

00440 

223* 



JEND 

= KKPENO + 10 


FLT20222 

00441 

224* 



IF (JEND.GT. 

35) GO T 0 450 


FLT20223 

00443 

225* 


300 

CONTINUE 



FLT20224 

00443 

226* 

c 

***)(( >jc^*t:****** *>■'**************************************** **************FLT 202 2 5 

00443 

227* 

c 


SCAN COLUMN 

OF FTLT1 ARRAY CONTAINING THE 

FIRE CHANNEL TO LOCATE 

*FLT20226 

00443 

228* 

c 


THE ROW WHICH FLAGS ENGINE COMMAND 'OFF*. 


*FLT20227 

00443 

229* 

c 


00444 

230* 



IF ( JFND.GF . 

I ST ART. AND. JEND. LE . I STOP ) GO 

TO 310 

FLT20229 

00446 

231* 



KK 

= KK + 1 


FLT20230 

00447 

232* 



CALL AVRGR ( KK, I START , I STOP > 


FLT20231 

00450 

233* 



M 

= N + 1 


FLT20232 
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00451 

234* 



FILT2(KK,51) 

= TSAVE + N * DELT 


FLT20233 

00452 

235* 



F T L T 2(KK» 52) 

= FI LT2( KK, 51 ) - TREF 


FLT20234 

00453 

236* 



I START 

= ISTART + 5 


FLT202 35 

00454 

237* 



ISTOP 

= ISTART + 4 


FLT20236 

00455 

238* 



GO TO 300 



FLT20237 

00456 

239* 


310 

CONTINUE 



FLT20238 

00457 

240* 



TSAVE 

= TTSAVE 


FLT20239 

00460 

241* 



IF <KK .GF. 1) 

TSAVE = FI LT2 ( KK, 51 ) 


FLT20240 

00462 

242* 



LOC 

= J-END - ISTART + 1 


FLT20241 

00463 

243* 


320 

CONTINUE 



FLT20242 

00464 

244* 



KK 

= KK + 1 


FLT20243 

00464 

245* 

C 

************ ** ********* ** **** ** ****** ** **** ******* **************** **FLT20244 

00464 

246* 

C 


END OF FIRING 

FOUND IN SCAN. LOCATE ROW 

POSITION IN FIVF 

*FLT 20245 

00464 

247* 

C 


ELEMENT ORDERED SET OF NUMBERS FOR SECOND 

WINDOW CENTERING. 

*FLT20246 

00464 

248* 

C 

********************************************************************** FLT20247 

00465 

249* 



GO TO (330,340 

,350,360,4001, LOC 


FLT20248 

00466 

250* 


3'30 

CONTINUE 



FLT20249 

00467 

251* 



I START ' 

= ISTART - 2 


FLT20250 

00470 

252* 



ISTOP 

= ISTART + 4 


FLT20251 

00471 

253* 



CALL AVRGR ( KK 

, I START , ISTOP I 


FLT20252 

00472 

254* 



F I LT 2 ( KK » 51 > 

= TSAVE + 0.012 


FLT202 53 

00473 

255* 



F I LT 2 ( KK , 52 ) 

= FI LT2 (KK, 51 ) - TREF 


FLT20254 

00474 

256* 



TSAVE 

= F I LT2 ( KK , 51 ) 


FLT20255 

00475 

257* 



N 

= 0 


FLT20256 

00476 

258* 



IPIV 

= ISTART +• 2 


FLT20257 

00477 

259* 



FILT2(KK,IFV) 

= FILTKIPI V,IFV1 


FLT20258 

00500 

260* 



JROW 

= KK 


FLT20259 

00501 

261* 



JCTNTR 

= 1 


FLT20260 

00502 

262* 



GO TO 440 



FLT20261 

00503 

263* 


340 

CONTINUE 



FLT20262 

00504 

264* 



ISTART 

= ISTART - 1 


FLT20263 

00505 

265* 



I STO D 

= ISTART + 4 

s 

FLT20264 

CO 50 6 

266* 



CALL AVRGR (KK 

., ISTART, ISTOP} 


FLT20265 

00507 

267* 



IPIV 

= ISTART + 2 


FLT202 66 

00510 

268* 



FILT2(KK,IFVI 

= FI LT1 ( I PI V, IFV) 


FLT20267 

00511 

269* 



FILT2(KK»5l) 

= TSAVE + 0.016 


FLT2026B 

00512 

270* 



FILT2(KK,52) 

= FILT2(KK,51) - TREF 


FLT20269 

00513 

271* 



TSAVE 

= FILT2(KK,51) 


FLT20270 

00514 

272* 



N 

= 0 


FLT20271 

00515 

273* 



JROW 

= KK 


FLT20272 

00516 

274* 



JCSNTR 

= 1 


FLT20273 
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00517 

275* 

GO TO 440 • 


FLT20274 

00520 

276* 

350 CONTINUE 


FLT20275 

00521 

277* 

CALL AVRGP (KK 

, I START, ISTOP) 

FLT20276 

00522 

278* 

IPTV 

= I START + 2 

FLT20277 

00523 

279* 

FJLT2(KK,!FV) 

= F I LT1 ( IPI V,I FV) 

FLT20278 

00524 

280* 

FILT2(KK,51) 

= TSAVE + 0.020 

FLT20279 

00525 

281* 

F I LT2( KK , 52 ) 

= FILT2( KK, 51) - TREF 

FLT20280 

00526 

282* 

TSAVF 

= F I LT2 ( KK, 51 1 

FLT20281 

00527 

283* 

N 

= 0 

FLT20282 

00530 

284* 

JROW 

= KK 

FLT20283 

00531 

285* 

JCENTR 

= 1 

FLT202 84 

00532 

286* 

GO TO 440 


FLT20285 

00533 

287* 

360 CONTINUE 


FLT20286 

00534 

288* 

GO TO (370,380 

,390 ) , ICNT3 

FLT20287 

00535 

289* 

370 CONTINUE 


FLT2Q288 

00536 

290* 

I START 

= I START - 2 

FLT20289 

00537 

291* 

I STOP 

= I START + 4 

FLT20290 

00540 

292* 

CALL AVPGR ( KK 

♦ISTART, ISTOP) 

FLT20291 

00541 

293* 

FILT2(KK,5i) 

= TSAVF + 0.012 

FLT20292 

00542 

294* 

F ILT2 ( KK , 52 ) 

= F I LT2 ( KK , 51 ) - TRFF 

FLT20293 

00543 

295* 

ICNT3 

= ICNT3 + 1 

FLT20294 

00544 

296* 

GO TO 360 


FLT20295 

00545 

297* 

380 CONTINUE 


FLT20296 

00546 

298* 

KK 

= KK + 1 

FLT20297 

00547 

299* 

I START 

= ISTOP - 1 

FLT20298 

00550 

300* 

ISTOP 

= I START + 4 

FLT20299 

00551 

301* 

CALL AVRGR (KK 

,ISTART, ISTOP) 

FLT20300 

00552 

302* 

IPIV 

= I START + 2 

FLT20301 

00553 

303* 

FILT2(KK,IFV) 

= FILT1 ( I PI V, I FV) 

FLT20302 

00554 

304* 

FILT2(KK,51) 

= TSAVE + 0.024 

FLT20303 

00555 

305* 

F ILT2 ( KK , 52 ) 

= FI LT2( KK,51) - TREF 

FLT20304 

00556 

306* 

TSAVE 

= F I LT2 ( KK , 51) 

FLT20305 

00557 

307* 

N 

= 0 

FLT20306 

00560 

308* 

JROW 

= KK 

FLT20307 

00561 

309* 

1CNT3 

= ICNT3 + 1 

FLT20308 

00562 

310* 

GO TO 360 


FLT20309 

00563 

311* 

390 CONTINUE 


FLT20310 

00564 

312* 

ITNT3 

= 1 

FLT20311 

00565 

313* 

JCENTP 

= 1 

FLT20312 

00566 

314* 

GO T 0 440 


FLT20313 

00567 

315* 

400 CONTINUE 


FLT20314 
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00570 

316* 

GO TO (410,420,430) , ICNT4 


FLT20315 

00571 

31 7* 

410 CONTINUE 



FLT203 16 

00572 

318* 

I START 

= ISTAPT - 2 


FLT203 17 

00573 

319* 

I STOP 

= I START + 4 


FLT2031 8 

00574 

320* 

CALL AVRGR ( KK, I START, I STOP) 


FLT20319 

00575 

321* 

F I LT2 ( KK , 51 ) 

= TSAVE + 0.012 


FLT20320 

00576 

322* 

FILT2 ( KK , 52 ) 

= FI LT2( KK, 51) - 

TREF 

FLT20321 

00577 

323* 

ICNT4 

= ICNT4 + 1 


FLT20322 

00600 

324* 

GO TO 400 



FLT20323 

00601 

325* 

420 CONTINUE 



FLT20324 

00602 

326* 

KK 

= KK + 1 


FLT20325 

00603 

327* 

JROW 

= KK 


FLT20326 

00604 

32 8* 

I START 

= I STOP 


FLT20327 

00605 

329* 

I STOP 

= I START + 4 


FLT20328 

00606 

330* 

CALL AVRGR. < KK, I START , I STOP ) 


FLT20329 

00607 

331* 

IPIV 

= I START + 2 


FLT20330 

00610 

332* 

FILT2(KK,IFV) 

= FILTl(IPIVtlFV) 


FLT20331 

00611 

333* 

F ILT2 ( KK, 51) 

= TSAVE + 0.028 


FLT20332 

00612 

334* 

F I LT2 ( KK , 52 1 

= FI LT2( KK, 51 ) - 

TREF 

FLT20333 

00613 

335* 

TSAVF 

= F I L T 2 ( KK, 51 ) 


FLT20334 

00614 

336* 

N 

= 0 


FLT20335 

00615 

337* 

ICN~4 

= ICNT4 + 1 


FLT20336 

00616 

338* 

GO TO 400 



FLT20337 

00617 

339* 

430 CONTINUE 



FLT20338 

00620 

340* 

ICNT4 

= 1 


FLT20339 

00621 

341* 

JCENTR 

= 1 


FLT20340 

00622 

342* 

440 CONTINUE 



FLT20341 

00623 

343* 

GO TO 240 



FLT20342 

00624 

344* 

450 CONTINUE 



FLT20343 

00625 

345* 

IF USTOP.GE. 

JEND) GO TO 460 


FLT20344 

00627 

346* 

KK 

= KK + 1 


FLT20345 

00630 

347* 

CALL AVRGR <KK, I START, I STOP) 

' 

FLT20346 

00631 

348* 

N 

= N + 1 


FLT20347 

00632 

349* 

FILT2(KK,51) 

= TSAVE + N * DELT 

FLT20348 

00633 

350* 

F ILT2( KK , 52 ) 

= FILT2(KK,51) - 

TREF 

FLT20349 

00634 

351* 

I START 

= I START + 5 


FLT20350 

00635 

352* 

I STOP 

= I START + 4 


FLT20351 

00636 

353* 

GO TO 450 



FLT20352 

00637 

354* 

460 continue 



FLT20353 

00640 

355* 

IF fISTOP.L?. 

38) GO TO 310 


FLT20354 

00642 

356* 

TSAVE 

= FILT2(KK,51) 


FLT20355 
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00643 

357* 


KKSAVE 

= 

KK 

FLT20356 

00644 

358* 


KK 


0 

FLT20357 

00645 

359* 


CALI SHIFT 



FLT203 58 

00646 

360* 


LOC 

- 

JEND - I START + 1 

FLT20359 

00647 

361* 


I START 


10 - 40 + ISTART 

FLT20360 

00650 

362* 


ISTOP 

= 

I START + 4 

FLT20361 

00651 

363* 


IPOINT 

= 

3 

FLT20362 

00652 

364* 


GO TO 550 



FLT20363 

00653 

365* 

470 

CONTINUE 



FLT20364 

00654 

366* 


IBEGIN 

= 

0 

FLT20365 

00655 

367* 


ICSNTR 

= 

0 

FLT20366 

00656 

368* 


ICNT1 

- 

1 

FLT20367 

00657 

369* 


TCNT2 

= 

1 

FLT20368 

00660 

370* 


ICNT3 

- 

1 

FLT20369 

00661 

371* 


ICNT4 

= 

1 

FLT20370 

00662 

372* 


IPIV 


0 

FLT20371 

00663 

373* 


IPOINT 


l 

FLT20372 

00664 

374* 


IROW 

= 

0 

FLT20373 

00665 

375* 


I START 

- 

6 

FLT20374 

00666 

376* 


JCENTR 

= 

0 

FLT20375 

00667 

377* 


JEND 

= 

0 

FLT20376 

00670 

378* 


JR OW 

= 

0 

FLT20377 

00671 

379* 


KK 

= 

0 

FLT20378 

00672 

380* 


KKPBEG 

= 

0 

FLT20379 

00673 

381* 


KKSAVE 

= 

0 

FLT20380 

00674 

382* 


LOC 

= 

0 

FLT20381 

00675 

383* 


NOISE 

= 

1 

FLT20382 

00676 

384* 


TREF 


0.0 

FLT20383 

00677 

385* 


TSAVE 

- 

0.0 

FLT203 84 

00700 

386* 


DO 500 J = 1 » 53 



FLT20385 

00703 

387* 


00 480 1=1,60 



FLT20386 

00706 

388* 


STORE { I , J) 

- 

0.0 

FLT2038 7 

00707 

389* 

CD 

o 

CONTINUE 



FLT20388 

00711 

390* 


DO 490 1=1,9 



FLT20389 

00714 

391* 


FILT2II ,J) 

= 

0.0 

FLT20390 

00715 

392* 

490 

CONTINUE 



FLT20391 

00717 

393* 


STOP.E (I , J ) 

5= 

o 

• 

o 

FLT20392 

00720 

394* 

500 

CONTINUE 



FLT20393 

00722 

395* 


00 510 1=1,40 



FLT20394 

00725 

396* 


DO 510 J=1 , 51 



FLT20395 

00730 

397* 


FILTH! ,J> 

» 

0.0 

FLT20396 
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00731 

398* 

510 

CONTINUE 

FLT20397 

00734 

399* 


DO 540 1=1,9 

FLT2039B 

00737 

400* 


DO 520 J=l»50 

FLT20399 

00742 

401* 


ENGRAT ( I * J > = 0.0 

FLT20400 

00743 

402* 

520 

CONTINUE 

FLT2040 1 

00745 

403* 


DO 530 J=l,100 

FIT 20402 

00750 

404* 


ENGDATl I , J) = 0.0 

FLT20403 

00751 

405* 

530 

CONTINUF 

FLT20404 

00753 

406* 

540 

CONTINUE 

FLT20405 

00755 

407* 

550 

CONTINUE 

FLT20406 

00756 

408* 


RETURN 

FLT20407 

00757 

409* 


END 

FLT20408 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 ^DIAGNOSTIC* MESSAGE! S > 


FILTR2 

SYMBOLIC 

25 

JUN 

70 

12S26S55 

0 

01523316 

14 

409 

(DELETED) 

FTLTR2 CODE 

RELOCATABLE 

25 

JUN 

70 

12C26C55 

l 

01536454 

36 

1 

(DELETED) 







0 

01536520 

14 

102 



HDG 


HD01 1C-HGAMMA 
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£ FOR,* HGAMMA, HGAMMA 14 JUL 70 17£ 6£ 3.586 

UNIVAC 1108 FORTRAN V LEVEL 2206 0013 F5018H 
THIS COMPILATION HAS DONE ON 14 JUL 70 AT 17E06603 


SUBROUTINF HGAMMA ENTRY POINT 000120 
STORAGE USED (BLOCK, NAME, LENGTH) 

0001 *CODE 000125 

0000 *DATA 000042 

0002 *BLANK 000000 


EXTERNAL REFERENCES (BLOCK, NAME) 

0003 NERR3$ 

STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION, NAME) 
0000 R 000001 PATM ' 0000 R 000000 T 0000 R 000002 U 


00101 

1* 

SUBROUTINE 

HGAMMA (TFI,PFII, GAMMAH) 

HGAMOOOO 

00103 

2* 

T 

5.0 * (TFI + 459.71 / 9.0 

HGAM0001 

00104 

3 * 

PATM 

PF II / 14.696 

HGAM0002 

00105 

4* 

U 

1.0 / T 

HGAM0003 

00106 

5* 

GAMMAH 

1.4 4- 1.7916552 - 9.34946E+1 * U + 3.4401152E+3 * U * 

UHGAM0004 

00106 

6* 

1 

*■ (-1.581 1495E- 2 + (7.371037E-5 + (-1 .903277E-7 + 

HGAM0005 

00106 

7* 

2 

(2.560734E-10 - 1 .3934965E-13 * T) * T> * T) * T) * T 

+HGAM0006 

00106 

8* 

3 

(9.5212948E-3 + (-9.4796595E-6 + 4.7574151E-8 * PATM) 

*HGAM0007 

00106 

9* 

4 

PATM) * PATM - 9. 8875463E— 5 * T * PATM + 3.9974179E-7 

HGAM0008 

00106 

10* 

5 

* T * T * PATM - 3.391797E-8 * T * PATM * PATM - 

HGAM0009 

00106 

11* 

6 

7.3903 89 7E— 1 0 * T * T * T * PATM + 3.0774794E-10 * T 

* HGAMOO 10 

00106 

12* 

7 

T * PATM * PATM + 5.2240539E-13 * T ** 4 * PATM - 

HGAM001 1 

00106 

13* 

8 

4. 6828143E-13 * T * T * T * PATM * PATM 

HGAMOO 12 
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CO 107 14* RETURN 

00110 15* END 


HGAMOO 13 
HGAMOO 14 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 *DIAGNOSTJC* MESSAGE(S) 


HGAMMA 

SYMBOLIC 

25 

JUN 

70 

1 2S26&56 

0 

01541344 

14 

15 

l DELETED! 

H GAMMA CODE 

RELOCATABLE 

25 

JUN 

70 

12S26C56 

1 

01541666 

24 

1 

( DELETED! 







0 

01541716 

14 

12 



HDG 


C 


HDO 1 1C-HZH 



HD011C-HZH 


DATE 140770 PAGE 
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£ FOP,* HZH, HZH 14 JUL 70 17£ 6£ 4.704 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17£06£04 


SUBROUTINE HZH ENTRY POINT 000116 

STORAGE USED (BLOCK, NAME, LENGTH) 

0001 4C0DE 000123 

0000 *DATA OOC 043 

0002 KBLANK OOCOOO 


FXTERNAL REFERENCES (BLOCK, NAME) 


fc 

i 

-o 


0003 NERR3J 


STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0000 

R 000001 

PATM 

0000 R 000000 T 0000 R 000002 U 


00101 

1* 

SUBROUTINE 

HZH (TFI ,PFII,ZH) 

HZHOOOOO 

00103 

2* 

T 


5.0 4 (TFI + 459.7) / 9.0 

HZH00001 

00104 

3* 

PATM 

= 

PFI I / 14,696 

HZH00002 

00105 

4* 

U 


1.0 / T 

HZH00003 

00106 

54 

ZH 

= 

1.0 - 2.6772676 4- ( 1.8336324E + 2 - 5.3350829E+3 * U) 4 

HZH00004 

00106 

6* 

1 


U + (2.1605597E-2 + (-1.0357253E-4 + ( 2.9241458E-7 + 

HZH00005 

00106 

7* 

2 


(-4.4684258E-10 + 2. 838050 5E-13 * T ) 4 T ) 4 T ) * T ) 4 

HZH00006 

00106 

8* 

3 


T + (-3.9254562E— 3 + ( 2. 5326543E-5 + 4.572284E-10 4 

HZH00007 

00106 

9* 

4 


PATM) 4 PATM) 4 PATM + 6.19289E-5 4 T * PATM 

HZH00008 

00106 

104 

5 


- 2. 949753E— 7 * T * T * PATM - 2.5910804E-7 4 j 4 PATM 

HZH00009 

00106 

11* 

6 


4 PATM + 5. 8954277E-10 4 T 4 T * T * PATM + 

HZHOOO 10 

00106 

124 

7 


8 • 7135669E-10 4 T 4 T 4 PATM 4 PATM - 4.247153E-13 4 

HZHOOOli 

00106 

134 

8 


T ** 4 * PATM - 9.5916114E— 13 4 T *43 * PATM * PATM 

HZHOOO 12 



A4-48 


HDOUC-HZH 


00107 14* RETURN 

00110 15* END 

END OF UN! VAC 1108 FORTRAN V COMPILATION. 
HZH SYMBOLIC 

HZH CODE RELOCATABLE 

£ HOG HD011C-JHYDE 


DATE 140770 PAGE 


54 


HZH00013 

HZH00014 

0 *DI AGNOSTIC* MESSAGE(S) 


25 

JUN 

70 

12826&58 

0 

01542166 

14 

15 

{DELETED! 

25 

JUN 

70 

12C26S58 

1 

01542510 

24 

1 

{DELETED! 





0 

01542540 

14 

12 
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E FOR,* JHYDF » JHYDE 14 JUL 70 17E 6E 5.720 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DOME ON 14 JUL 70 AT 17E06E05 


SUBROUTINE JHYOE ENTRY POINT 001031 
STORAGE USFD (BLOCK, NAME, LFNGTH) 

0001 *CODE 001046 

0000 *D4T A 000136 

0002 *BLANK 015607 

0003 FACTOR 006533 

0004 FILES 000014 

0005 ROWS 000015 

0006 UNITS 000004 


EXTERNAL REFERENCES (8L0CK, NAME) 

0007 NWDU» 

0010 N 10 1$ 

0011 NT02* 

0012 NSTOP* 

0013 NERR3A 


STORAGE ASSIGNMENT' FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION, NAME I 


0000 


000010 

10F 

0001 


000261 

100L 

0001 


000264 

1 10L 

0001 


000011 

115G 

0001 


000021 

120G 

0001 


000072 

135G 

0001 


000306 

140L 

0001 


000311 

150L 

0001 


000341 

1 60L 

0001 


000207 

1 70G 

0001 


000343 

1 70L 

0001 


000374 

180L 

0001 


000415 

190L 

0000 


000043 

20F 

0001 


000515 

200L 

nooi 


000520 

2 10L 

0001 


000523 

220L 

0001 


000526 

230L 

0001 


000624 

240L 

0001 


000627 

250L 

0001 


000376 

252G 

0001 


000406 

255G 

0001 


000632 

260L 

0001 


000635 

270L 

0001 


000451 

272G 

0 001 


000030 

30L 

0001 


000653 

300L 

0001 


000731 

310L 

0001 


000560 

325G 

0001 


000136 

40 L 

0001 


000141 

50L 

0001 


000144 

60L 

0001 


000147 

70L 

0001 


000253 

80L 

0001 


000256 

90L 

0004 

p 

000000 

BEGFIL 

0003 

R 

000000 

BIAS 

oooo 

R 

000004 

BIGX 

0000 

R 

000006 

BIGY 

0002 

R 

000000 

ENGDAT 

0002 

F 

001604 

ENGRAT 

0002 

R 

002506 

FILT1 

0002 

R 

006476 

FILT2 

0000 

I 

000001 

I 

0003 

I 

000063 

IB 

0005 

I 

000000 

IBEGIN 

0004 

I 

000001 

IBL 

0003 

I 

000146 

IC 

0004 

I 

000002 

I DUMP 

0005 

I 

OOOOOl 

IFV 
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0004 

I 

000003 

ILINE 

0005 

I 

000002 

INITL 

0004 

I 

000004 

INT 

0005 

I 

-000003 

ION 

0006 

I 

000000 

IOTAPE 

0004 

I 

000005 

IPC 

0004 

I 

000006 

I PLOT 

0005 

I 

000004 

IQUIT 

0005 

t 

000005 

IROW 

0003 

I 

000231 

IRUNNO 

0003 

J 

000232 

IS 

0000 

I 

000000 

J 

0005 

I 

000006 

JENO 

0005 

I 

000007 

JON 

0005 

I 

000010 

• JROW 

0000 

I 

000003 

K 

000 5 

I 

000011 

KKP8EG 

0005 

I 

000012 

KKPEND 

0005 

I 

000013 

KKSAVE 

0000 

I 

000002 

LL 

0005 

r 

000014 

LSTPTS 

0006 

I 

000001 

MICRO! 

0004 

I 

000007 

MLINE 

0004 

I 

000010 

MXFILE 

0004 

I 

-OOOOll 

NDP 

0004 

i 

000012 

NLIMES 

0004 

I 

000013 

NP 

0003 

I 

000315 

N PI 

0003 

I 

000400 

NP 2 

0006 

R 

000002 

PLTAPE 

0003 

p. 

000464 

SCALE 

0000 

R 

000005 

SMLX 

0000 

R 

000007 

SMLY 

0002 

R 

007433 

STORE 

0003 

R 

000547 

TAB XI 

0003 

R 

001545 

TABX2 

0003 

R 

003541 

TABY1 

0003 

R 

004537 

TABY2 

0006 

R 

000003 

UNIT 






00101 

1* 


SUBROUTINE JHYDE 



JHYDOOOO 

00103 

2* 


COMMON 


ENG0AT(9,1001 , ENGRAT (9 , 50 1 , FILTH 40,51» 

JHYD0001 

00103 

3* 


l 

f 

F I LT2 (9,53) , STORE (60 , 53 1 

JHYD0002 

00104 

4* 


COMMON / FACTOR 

/ 

BIAS (51 >,IB(51 >,IC(51) , IRUNNO, IS < 5 1 > , NP 1( 51) 

JHYD0003 

00104 

5* 


1 

f 

NP2I52) ,SCALE(51),TABX1(51,10) ,TABX2( 51,20) 

JHYD0004 

00104 

6* 


2 

r 

TAB Y1 (51,10) ,TABY2(51»20) 

JHYD0005 

00105 

7* 


COMMON / FILES 

/ 

B EG FIL, IBL,I DUMP, ILINE, INT, IPC, I PLOT , MLINE 

JHYD0006 

00105 

8* 


1 

t 

MXFILE, NDP, NLINES,NP 

JHYD0007 

00106 

9* 


COMMON / ROWS 

l 

I BEGIN, IFV, INITL, ION, I QUIT , IROW, J END, JON, JROW 

JHYD0008 

00106 

10* 


1 

* 

KKPBEG, KKPEND, KKSAVE, LSTPTS 

JHYD0009 

00107 

11* 


COMMON / UNITS 

/ 

IOTAPE, MICROT, PLTAPE,UNIT 

JHYDOO 10 

00110 

12* 


10 FORMAT! »OTHE COUNT VALUE » • E14.8, • , FOR CHANNEL* , 13, ' WAS OUTSIDE 

OJHYDOO 1 1 

00110 

13* 


1NE OF THE LIMITS 

FOR*/' THE COUNTS TO MILLI-VOLT CALIBRATION T ABLEJHYOOO 12 

00110 

14* 


2. THOSE LIMITS 

ARE* ,2E14.8) 

JHYDOO 13 

00111 

15* 


20 FORMAT! *0THE MILLJ-VOLT VALUE, *E 14.8 ,* , FOR CHANNEL* , 13, ' WAS OUTSJHYD0014 

00111 

16* 


11 DE ONE OF THE LIMITS FOP'/' THE MILLI-VGLTS TO ENGINEERING UNITS 

JHYDOO 15 

00111 

17* 


2CALIBRATI0N TABLE 

. THOSE LIMITS ARE',2E14.8> 

JHYDOO 16 

00111 

18* 

C 

* * CHECK FOR WORKING 

ON DUMP DATA RATHER THAN FILTERED DATA... 

JHYD0017 

00112 

19* 


IF (IDUMP.EQ.i) 

GO TO 180 

JHYDOO 18 

00112 

20* 

C 

* * WORK ON FILTERED 

DATA... 

JHYDOO 19 

00114 

21* 


00 130 J=l, KKSAVE 


JHYDOO 20 

00117 

22* 


00 120 1=1,50 



JHYD0021 

00117 

23* 

C 

* * CHECK FOR SCALING 

• OF DATA... 

JHYDOO 22 

00122 

24* 


IF (IS(I).EO.O) 

GO TO 30 

JHYD0023 

00122 

25* 

C 

* * SCALE DATA... 



JHYD0024 

00124 

26* 


FILT2! J,I 1 

FI LT2 ( J, I ) * SCALE ( I ) 

JHYD0025 

00125 

27* 


GO TO 110 



JHYDOO 26 

00126 

2 8* 


30 CONTINUE 



JHYD0027 

00126 

29* 

c 

* * CHECK FOR USE OF 


CAL CURVE ON DATA... 

JHYD0028 
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00127 

30* 




IF UCm.EQ.O) GO TO 110 



JHYD0029 

00127 

31* 

C 

* 

* 

OBTAIN ADDRESS OF LAST POINT IN TABLE... 



JHYD0030 

00131 

32* 




LL = NP1 (I) 



JHYD0031 

00131 

33* 

C 

* 

* 

CHECK FOR DATA OUTSIDE OF TABLE... 



JHYD0032 

00 132 

34* 




IF (FILT2I J,I l.LT.TABXl (1,11 .OR. FI LT2 < J » I) . GT .TABX1 ( I , L L ) > 

GO 

TO 

1JHYD0033 

00132 

35* 




150 



JHYD0034 

00134 

36* 




DO 60 K=2,LL 



JHYD0035 

00134 

37* 

C 

* 

* 

FIND LOCATION OF POINT IN TABLE... 



JHYD0036 

0 0137 

3 8* 




IF (FILT2(JfI).GT.TA8Xl(I»K)) GO TO 60 



JHYD0037 

00137 

39* 

C 

* 

* 

DETERMINE IF EQUAL TO AN END POINT in INTERVAL... 



JHYD0038 

00141 

40* 




IF (ABS(FILT2(J,I1— TABXKI ,K>) .LE.1.0E-06) GO TO 40 



JHYD0039 

00143 

41* 




IF (ABS(FILT2<J,I)--TABX1(I,K-1)).LE.1.0E-06) GO TO 50 



JHYD0040 

00143 

42* 

C 

* 

* 

CALCULATE THE MILLI-VOLT VALUE FOR DATA... 



JHYD0041 

00145 

43* 




BIGX = TABXKI, K) - TABXKI, K-l» 



JHYD0042 

00146 

44* 




SMLX = FILT2(J,I> - TABXKI, K-l) 



JHYD0043 

00147 

45* 




BIGY = TABY1 < I »K) - TABY1 ( I ,K-1 ) 



JHYD0044 

00150 

46* 




SMI Y = TABY1 ( I »K— 1 ) 



JHYD0045 

00151 

47* 




FILT2(J,I» = BIGY * SMLX / BIGX + SMLY 



JHYDOO 46 

00152 

48* 




GO TO 70 



JHYD0047 

00152 

49* 

C 

* 

* 

STORE HIGH FND OF INTERVAL... 



JHYD004S 

00153 

50* 


40 

CONTINUE 



JHYD0049 

00154 

51* 




FILT2<J,I> = TABY1 ( I ,K> 



JHYDOO 50 

00155 

52* 




GO TO 70 



JHYD005 l 

00155 

53* 

C 

* 

* 

STORE LOW END OF INTERVAL... 



JHYD0052 

00156 

54* 



50 

CONTINUE 



JHYD0053 

00157 

55* 




FILT2( J,I ) = TABY1U ,K-1) 



JHYD0054 

00160 

56* 




GO TO 70 



JHYDOO 55 

00161 

57* 



60 

CONTINUE 



JHYDOO 56 

00163 

5 8* 



70 

CONTINUE 



JHYD0057 

00163 

59* 

C 

* 

* 

OBTAIN ADDRFSS OF LAST POINT IN TABLE... 



JHYD0058 

00164 

60* 




LL = NP2<H 



JHYD0059 

00164 

61* 

C 

* 

* 

CHECK FOR DATA OUTSIDE OF TABLE... 



JHYD0060 

00165 

62* 




IF <FILT2< J,I ).LT.TABX2(I ,1> .0R.FILT2( J, I ) .GT.TABX2 II, LL» > 

GO 

TO 

1JHYD0061 

00165 

63* 




170 



JHYD0062 

00167 

64* 




DO 100 K=2,LL 



JHYD0063 

00167 

65* 

C 

* 

* 

FIND LOCATION OF POINT IN TABLE... 



JHYD0064 

00172 

66* 




IF (FILT2(J»I).GT.TABX2(IfKl ) GO TO 100 



JHYD0065 

00172 

67* 

C 

* 

* 

DETERMINE IF EQUAL TO AN END POINT IN INTERVAL... 



JHYDOO 66 

00174 

68* 




IF (ABS(FILT2(J,I 1-TABX2 < I ,K)) . LE. 1.05-61 GO TO 80 



JHYD0067 

00176 

69* 




IF (ABS(FILT2(J*I 1-TABX2 (I, K-DJ.LE. 1.06-6) GO TO 90 



JHYD0068 

00176 

70* 

C 

* 

* 

CALCULATE THE ENGINEERING VALUE FOR DATA... 



JHYD0069 
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00200 

71* 



B1GX = TASX2 ( I * KJ - TABX2(I»K-1) 

JHYD0070 

00201 

72* 



SMLX = FILT2 ( J, I > - TA8X2U,K-l) 

JHYDC071 

00 20 2 

73* 



BIGY = TABY2(I,KJ - TABY2(I,K-1) 

JHYD0072 

002C3 

74* 



SMLY = T ABY2 ( 1 1 K-l > 

JHY00073 

00204 

75* 



FILT2U,I> = BIGY * SMLX / BIGX + SMLY 

JHYD0074 

00205 

76* 



GO TO 110 

JHYOOO 75 

00206 

77* 


80 

CONTINUE 

JHYD0076 

00207 

78* 



F I LT-2 ( J , I ) = TABY2 (I » K) 

JHYD0077 

00210 

79* 



GO TO 110 

JHYD0078 

00211 

80* 


90 

CONTINUE 

JHYD0079 

00212 

81* 



F ILT2 ( J » I ) = TABY2U tK-1) 

JHYD0080 

00213 

82* 



GO TO 110 

JHYD008 1 

00214 

83* 


100 

CONTINUE 

JHYD0082 

00216 

84* 


110 

CONTINUF 

JHYDOO 83 

00216 

85* 

C 

* * 

CHECK FOR BIASING OF DATA... 

JHYDOO 84 

00216 

86* 

C 

* * 

BIAS THE DATA... 

JHYD0085 

00217 

87* 



IF dBm .EQ. 1) FILT2(J,I) = FILT2CJ,I> + BIAS(I) 

JHYDOO 86 

00221 

88* 


120 

CONTINUF 

JHYD0087 

00223 

89* 


130 

CONTINUE 

JHYDOO 88 

00225 

90* 


140 

CONTINUE 

JHYD0089 

00226 

91* 



RETURN 

JHYD0090 

00226 

92* 

C 

* * 

WRITE ERROR. MESSAGE... 

JHYD009 l 

00227 

93* 


150 

CONTINUF 

JHYD0092 

00230 

94* 



WRITE I6,10»FILT2< J,I ) ,1 ,TABX1 U , 1 ) ,TABX 1 ( I ♦ LL ) 

JHYD0093 

00236 

95* 


160 

CONTINUE 

JHYD0094 

00237 

96* 



STOP 

JHYD0095 

00237 

97* 

C 

* * 

WRITE ERROR MESSAGE... 

JHY00096 

00240 

98* 


170 

CONTINUE 

JHYD0097 

00241 

99* 



WF.ITF {6,20)FILT2(J»II,I,TABX2(I,l>,TABX2tI»LL) 

JHYD0098 

00247 

100* 



GO TO 160 

JHYD0099 

00247 

101* 

c 

* * 

WORK ON DATA TO BE DUMPED... 

JHYD0100 

00250 

102* 


180 

CONTINUE 

JHY00101 

00251 

103* 



DO 290 J=l,60 

JHYD0102 

00254 

104* 



DO 2B0 1=1,50 

JHYD0103 

00254 

105* 

c 

* * 

CHECK FOR SCALING OF DATA... 

JHYD0104 

00257 

106* 



IF ( IS m.EQ.O) GO TO 190 

JHYD0105 

00257 

107* 

c 

* * 

SCALE DATA... 

JHYD0106 

00261 

108* 



STORE ( J, I ) = STORE { J , I ) * SCALE(I) 

JHY00107 

00262 

109* 



GO TO 270 

JHY00108 

00263 

110* 


190 

CONTINUE 

JHYD0109 

00263 

111* 

c 

* * 

CHECK FOR USE OF CAL CURVE ON DATA... 

JHYD0110 
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00264 

112* 




IF ( rcm.EQ.O) GO TO 270 




JHYD0111 

00264 

113* 

C 

* 

* 

OBTAIN ADDRESS OF LAST POINT IN TABLE... 




JHYD0112 

00266 

114* 




LL = NPKI> 




JHYD01 13 

00266 

115* 

C 

* 

* 

CHECK FOR DATA OUTSIDE OF TABLE... 




JHYD0114 

00267 

116* 




IF (STORE! J,I>.LT.TABXi(I,ll.OR.STORE(J, I) .GT .TABX1 ( I, LL )> 

GO 

TO 

3JHYD01 15 

00267 

117* 



100 




JHYD0116 

00271 

118* 




DO 220 K=2,LL 




JHYD0117 

00271 

119* 

C 

* 

£ 

FIND LOCATION OF POINT IN TABLE... 




JHYD0118 

00274 

120* 




IF ( STORE ( J , I I .GT.TABXHI , K) ) GO TO 220 




JHYD0119 

00274 

121* 

C 

* 

* 

DETERMINE IF EQUAL TO AN END POINT IN INTERVAL... 




JHYD0120 

00276 

122* 




IF ( ABS (STORE (J,I)-TABX1(I,K)).LE. 1.0 E-6 ) GO TO 200 



JHYD0121 

00300 

123* 




IF (ABS( STORE (JtI l-TABXl (I ,K-1 ) 1 .LE.1.0E-6J GOTO 

210 



JHY00122 

00300 

124* 

c 

* 

* 

CALCULATE THE MILLI-VOLT VALUE FOR DATA... 




JHYD0123 

00302 

125* 




BIGX = TABX1 ( I , K 1 - TABXHItK-l) 




JHY00124 

00303 

126* 




SMLX = STORE ( J, I ) - TABXl(I,K-l> 




JHYD0125 

00304 

127* 




BIGY = TABYl(I.K) - TABYKI, K-l) 




JHYD0126 

00305 

128* 




SMLY = TABYKI, K-l) 




JHYD0127 

00306 

129* 




STORE ( J , I 1 = BIGY * SMLX / BIGX + SMLY 




JHY00128 

00307 

130* 




GO TO 230 




JHYD0129 

00307 

131* 

c 

* 

* 

STORE HIGH END OF INTERVAL... 




JHYD0130 

00310 

132* 


200 

CONTINUE 




JHYD0131 

00311 

133* 




STGRE( J*I ) = TABYKI tK) 




JHYD01 32 

00312 

134* 




GO TO 230 




JHY00133 

00312 

135* 

c 

* 

* 

STORE LOW END OF INTERVAL... 




JHYD0134 

00313 

136* 


210 

CONTINUE 




JHYD0135 

00314 

137* 




ST ORE (JtI) = TABYKI, K-l) 




JHYD0136 

00315 

138* 




GO TO 230 




JHYD0137 

00316 

139* 


220 

CONTINUE 




JHYD0138 

00316 

140* 

c 

* 

* 

OBTAIN ADDRESS OF LAST POINT IN TABLE... 




JHYD0139 

00320 

141* 


230 

CONTINUE 




JHYD0140 

00321 

142* 




LL = NP2II) 




JHY00141 

00321 

143* 

c 

* 

* 

CHECK FOR DATA OUTSIDE OF TABLE... 




JHY00142 

C0322 

144* 




IF ( STORE (J,I).LT.TABX2< I, 1> .OR. STORE ( J, I ) -GT.TABX2 (I, LL > > 

GO 

TO 

3JHYD0143 

00322 

145* 




no 




JHYD0144 

00324 

146* 




DO 260 K=2 » LL 




JHYD0145 

0C324 

147* 

c 

* 

* 

FIND LOCATION OF POINT IN TABLE... 




JHYD0146 

30327 

148* 




IF ( STORE (J,I).GT.TABX2(I»K)) GO TO 260 




JHY00147 

00327 

149* 

c 

* 


DETERMINE IF EQUAL TO AN END POINT IN INTERVAI 




JHYD0148 

00331 

150* 




IF (ABS (STORE (J,I )-TABX2(I»K)).LE. 1.0E-6I GO TO 240 



JHYD0149 

00333 

151* 




IF <ABS(ST0RE(J,H-TABX2(ItK-m.LE.1.0E-6) GOTO 

250 



JHYD0150 

00333 

152* 

c 

* 

* 

CALCULATE *HF ENGINEERING VALUE FOR DATA... 




JHYD01 51 



A4-54 


HD011C-JHYDE 


DATE 140770 PAGE 


60 


00335 

153* 



BIGX = TABX2 ( I , K ) - TABX2<I,K-1) 

JHYD0152 

00336 

154* 



SMLX = STORE(J,n - TABX2(I,K-1) 

JHYD0153 

00337 

155* 



BIGY = TABY2 { I * K ) - TA8Y2(I,K-1) 

JHYD0154 

00 340 

156* 



SMLY = TABY2U f K-l ) 

JHYD0155 

00341 

157* 



STORE(J,I) = BIGY * SMLX / BIGX + SMLY 

JHYD0156 

00342 

158* 



GO TO 270 

JHYD0157 

00343 

159* 


240 

CONTINUE 

JHYD0158 

00344 

160* 



STORE { J , I ) = TA8Y2 { I *K) 

JHYD0159 

00345 

161* 



C-n T 0 270 

JHYD0160 

00346 

162* 


250 

CONTINUE 

JHYD01 61 

00347 

163* 



STORF(J.I) = TAB Y2 ( I , K-l) 

JHYD0162 

00350 

164* 



GO TO 270 

JHYD0163 

00351 

165*- 


260 

CONTINUE 

JHYD0164 

00351 

166* 

C 

* * 

CHECK FOR 8IASING OF DATA... 

JHY00165 

00351 

167* 

C 

* * 

BIAS THE DATA... 

JHYD0166 

00353 

168* 


270 

CONTINUE 

JHY00167 

00354 

169* 



IF (TB(I) .EQ. 1) STORE(J,I» = STOREfJ,!) + BIAS(I) JHY00168 

00356 

170* 


280 

CONTINUE 

JHYD0169 

00360 

171* 


290 

CONTINUE 

JHYD0170 

00362 

172* 



GO TO 140 

JHYD0171 

00362 

173* 

C 

* * 

WRITE ERROR MESSAGE... 

JHYD0172 

00363 

174* 


300 

CONTINUE 

JHYD0173 

00364 

175* 



WPITF (6, 10) STORE (J, I ) ,1 , TABX1 ( J , 1 > ,TABX1 < I , LL) 

JHYD0174 

00372 

176* 



IF (MICROT. EQ. 17) WRITE ( MICROT, 10 ) STORE < J , I) , I 

,TABX1(I, l),TABXl(IJHYD0175 

00372 

177* 



i.LL) 

JHYD0176 

00401 

178* 



GO TO 160 

JHYD0177 

00401 

179* 

C 

* * 

WRITE ERROR MESSAGE... 

JHYD0178 

00402 

180* 


310 

CONTINUE 

JHYD0179 

00403 

181* 



WRITF (6,20) STORE! J,I > ,I,TABX2 (I ,1) ,TABX2(I,LL) 

JHYD0180 

00411 

182* 



IF (MICROT. EQ. 17) WRITE ( MICROT , 20 )STORE ( J,I ) , I 

,TABX2(I, 1),TABX2I I JHYD01 81 

00411 

183* 



l,Ll) 

JHYD0182 

C0420 

184* 



GO TO 160 

JHYD0183 

C0421 

185* 



END 

JHYD0184 


END OF 

UNIVAC 

1108 FORTRAN V COMPILATION. 0 *DIAGNOSTIC* 

MESSAGE! S ) 


J HYDE 


SYMBOLIC 

25 

JUN 

70 

12&27G01 

0 

01543010 

14 

185 

(DELETED) 

J HYDE 

CODE 

RELOCATABLE 

25 

JUN 

70 

12S27E01 

1 

01550046 

36 

1 

(DELETED) 








0 

01550112 

14 
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£ FOR, 4 OGAMMA,OGAMMA 14 JUL 70 176 66 8.710 

UNI V* C 1108 FORTRAN V LEVFL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17606608 


SUBROUTINE GGAMMA ENTRY POINT 000111 
STORAGE USFD (BLOCK, NAME, LENGTH) 

0001 *C0DE 000115 

0000 *DATA 000034 

0002 *BLANK 000000 


EXTERNAL REFERENCES (BLOCK, A AME ) 
0003 NERR3$ 


t 

i STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION, NAME) 

L/l 


0000 

R 000001 

PATM 

0000 R 000000 T 


00101 

1* 

SUBROUTINE 

OGAMMA (TOI,POII , GAMMAO) 

OGAMOOOO 

00103 

2 * 

T 


5.0 * (TOI + 459.7) / 9.0 

OGAMOOO 1 

00104 

3* 

PATM 

= 

POII / 14.696 

OGAM0002 

00105 

4* 

GAMMAO 


1.4 - 1.7457824E-2 + ( 1 .93579 17E-4 + (-7. 2588636E-7 + 

OGAM0003 

00105 

5* 

l 


( 1. 0841 843E-9 - 1.254912E-12 * T) * T> * T) * T + 

OGAM0004 

00105 

6* 

2 


0.16343016 * PATM + 1.4833429E-3 * PATM * PATM - 

0GAMO005 

00105 

7* 

3 


5.303302E-8 * PATM ** 3 - 2.2332967E-3 * T * PATM + 

OGAM0006 

00105 

8* 

4 


1.161 5558E-5 * T * T * PATM - 1.3824483E-5 * T * PATM 

0GAM0007 

00105 

9# 

5 


* PATM - 2.6652882E-8 * T * T * T * PATM * 4.2607112E- 

80GAM0008 

00105 

10* 

6 


* T * T * PATM * PATM + 2. 2589584E-1 1 * T ** 4 * PATM 

DGAM0009 

00105 

11* 

7 


- 4. 3236307E— 1 1 * T **3 * PATM * PATM 

0GAM0010 

00106 

12* 

RETURN 



OGAMOO 1 1 

00107 

13* 

END 



OGAM0012 
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END OF UNIVAC 1103 FORTRAN V COMPILATION. 0 *DI AGNOST I C* MESSAGE! S ) 


OGAMMA 

SYMBOLIC 

25 

JUN 

70 

12E27E02 

0 

01551656 

14 

13 

(DELETED! 

OGAMMA CODE 

RELOCATABLE 

25 

JUN 

70 

12E27S02 

1 

01552144 

24 

1 

(DELETED) 







0 

01552174 

14 

11 
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S FOR,* OUTPUT , OUTPUT 14 JUL 70 17G 6 E 9.759 

UNIVAC 1108 FORTRAN V LEVEL 22C6 0018 F5018H 
THIS COMPILATION WAS DONE qk 14 JUL 70 AT 17G06G09 


SUBROUTINE OUTPUT ENTRY POINT 002767 
STORAGE USED (BLOCK, NAME, LFNGTH > 

0001 *COOE 003004 

0000 *DATA 001213 

0002 *BL ANK 015607 

0003 COMRAT 000052 

0004 ENG 000022 

0005 FACTOR 006533 

0006 TCT 000012 

0007 LABELS 000320 

0010 ROWS 000015 

0011 UNITS 000C04 

0012 FILES 000C14 


EXTERNAL REFERENCES (BLOCK, NAME t 

0013 NWDUt 

0014 MI02* 

0015 NlOlt 

DC 16 NWBUt 

0017 NERR25 

0020 NEXPIS 

0021 NREW$ 

0022 NRDUt 

0023 NEPR3S 


S T np AGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION, NAME) 

0000 000560 10F 0000 000713 100F 0001 001505 1001G 0001 001614 1034G 0001 001626 1042G 

0001 001644 1051G 0000 000736 110F 0001 002056 1145G 0001 002102 1156G 0000 000763 120F 



8S-7V 
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OOOl 


002137 

1201G 

0001 


002250 

1236G 

0001 


002301 

1253G 

0001 


002313 

1263G 

0000 


001020 

130F 

0001 


0C2503 

133 6G 

0001 


002526 

1350G 

0001 


002555 

1364G 

0001 


002600 

1376G 

0000 


001055 

140F 

0001 


002613 

1407G 

0001 


002707 

1442G 

0001 


002731 

1453G 

0000 


001100 

150F 

0001 


000037 

160L 

0001 


000041 

170L 

0001 


000025 

1 76G 

0001 


000064 

1 SOL 

0001 


000157 

190L 

0000 


000577 

20F 

0001 


000167 

200L 

0001 


000176 

210L 

0001 


000200 

220L 

0001 


000072 

224G 

0001 


000250 

230L 

0001 


000304 

2401 

0001 


C00312 

250L 

0001 


000362 

260L 

0001 


000231 

267G 

0001 


000442 

270L 

0001 


000242 

274G 

0001 


000460 

2 SOL 

0001 


000477 

290L 

0000 


000603 

3 OF 

0001 


000544 

300L 

0001 


000272 

310G 

0001 


000624 

310L 

0001 


000300 

3 14G 

0001 


000632 

320L 

0001 


000675 

330L 

0001 


000343 

33 4G 

0001 


000740 

340L 

0001 


000354 

341G 

0001 


001005 

350L 

0001 


001041 

360L 

0001 


001047 

3 70L 

0001 


001113 

380 L 

0001 


001133 

390L 

0000 


000605 

4 OF 

0001 


001153 

400 L 

0001 


001156 

410L 

0001 


000527 

41 1 G 

0001 


000536 

4 15G 

0001 


001204 

420L 

0001 


001363 

430L 

0001 


000612 

43 5G 

0001 


000620 

44 1G 

0001 


001372 

450L 

0001 


000660 

460G 

0001 


001413 

460L 

0001 


000667 

464G 

0001 


001416 

470L 

0001 


001471 

490L 

0000 


000625 

50F 

0001 


001473 

500L 

0001 


000770 

520G 

0001 


001560 

520L 

0001 


000777 

524G 

0001 


001606 

530L 

0001 


001027 

540G 

0001 


001667 

540L 

0001 


001035 

544G 

0001 


002007 

550L 

0001 


002111 

560L 

0001 


001075 

563 G 

0001 


001104 

567G 

0001 


002132 

570L 

0001 


002156 

580L 

0001 


002230 

590L 

oooo 


000653 

6 OF 

0001 


002311 

600L 

0001 


002363 

610 L 

0001 


002437 

620L 

0001 


001203 

623G 

0001 


002455 

630L 

0001 


002606 

6401 

0001 


001246 

645 6 

0001 


002630 

650L 

0001 


001267 

651G 

0001 


001300 

656 G 

0001 


002676 

660L 

0001 


001311 

663G 

0001 


002745 

670L 

0001 


001333 

674G 

0000 


000671 

70F 

0001 


001344 

701G 

oom 


001355 

706G 

0001 


001433 

747G 

oooi 


001441 

756G 

0001 


001454 

762G 

0000 


000673 

80F 

0000 


000675 

90F 

0004 

R 

000000 

AC 

0003 

R 

000000 

AE 

0004 

R 

000001 

AT 

0003 

a 

000001 

ATTC 

0012 

I 

000000 

BEGFIL 

0005 

R 

000000 

BIAS 

0003 

R 

000002 

CFNSV 

0003 

R 

000003 

CFSTD 

0003 

R 

000004 

CFSTDV 

0003 

R 

000005 

CFSV 

0004 

R 

000002 

CF1 

0004 

R 

000003 

CF2 

0004 

R 

000004 

CF3 

0004 

R 

000005 

CF4 

0000 

R 

COOOOO 

CIV 

0003 

R 

000006 

CSTASD 

0003 

R 

000007 

CSTAT 

0003 

R 

000010 

CSTATS 

0004 

R 

000006 

DCSTAR 

0004 

R 

000007 

OHD 

0004 

R 

000010 

DOO 

0003 

R 

000011 

DPF 

0003 

R 

000012 

OPFS 

0004 

R 

000011 

OPH 

0004 

R 

000012 

DPC 

0003 

R 

000013 

DPOS 

0003 

R 

000015 

ECFS 

0003 

R 

000014 

ECFSTD 

0002 

R 

000000 

EMGDAT 

0002 

R 

001604 

ENGRAT 

0003 

R 

000016 

EPS 

0003 

R 

000017 

ETAC 

0002 

R 

002506 

F1LT1 

0002 

R 

006476 

FILT2 

0003 

R 

000020 

F STD 

0004 

R 

000013 

G 

0004 

R 

000014 

GAMMA 

0000 

I 

000526 

I 

0000 

I 

000120 

JALPHA 

0005 

I 

000063 

IB 

0010 

I 

000000 

IBEGIN 

0000 

I 

000541 

IBEGN1 

0000 

I 

000542 

I8EGN2 

0012 

I 

000001 

IBL 

0000 

r 

000527 

I BLANK 

0005 

I 

000146 

IC 

0000 

I 

000132 

ICAN 

0006 

I 

000000 

ICTl 

0000 

I 

000214 

IOATA 

0012 

i 

000002 

IDUMP 

0000 

I 

000537 

IDU1 

0000 

I 

000530 

I END 

0000 

I 

000232 

IFND 

0010 

I 

000001 

IFV 

0000 

t 

000546 

IGO 

0000 

I 

000550 

I GO 1 

0012 

I 

000003 

ILINE 

0010 

I 

000002 

INITL 

0012 

I 

000004 

INT 

0010 

T 

000003 

I ON 

0011 

I 

000000 

IOTAPE 

0000 

I 

000366 

IOUTLB 

0000 

I 

000246 

101 

0012 

I 

000005 

IPC 

0012 

I 

000006 

I PLOT 

0007 

I 

000000 

IPO INT 

0000 

I 

000543 

IPRINT 

0010 

I 

000004 

I QUIT 

0003 

I 

000021 

IPATED 

0000 

I 

000551 

IREC 

0010 

I 

000005 

IROW 

0000 

I 

000545 

IROW 1 

0005 

1 

-000231 

IRUNND 

0005 

I 

000232 

IS 

0000 

T 

000540 

ISKIP 

0003 

I 

000022 

ISPS 

0000 

I 

000506 

ITRY 

0000 

I 

000531 

ITYPE1 

0000 

T 

000532 

ITYPF2 

0000 

I 

000533 

ITYPE3 

0000 

I 

000547 

J 

0010 

I 

000006 

JEND 

0010 

I 

000007 

JON 

0010 

I 

000010 

JROW 

0000 

I 

000544 

JROWi 

0000 

I 

000553 

Jl 

0004 

R 

000015 

K 

0004 

R 

000016 

KF 

0010 

I 

000011 

KKPBEG 

0010 

I 

000012 

KKPEND 

0010 

I 

000013 

KKSAVE 

0004 

R 

000017 

KO 

0000 

I 

000554 

L 

0007 

T 

000010 

LABELS 

0007 

T 

000072 

LABENS 

0007 

I 

000236 

LABRAT 

0000 

I 

000555 

LL 

0000 

I 

000557 

LLL 

0010 

T 

000014 

LSTPTS 

0000 

I 

000556 

L 11 

0000 

I 

000552 

M 

0011 

I 

000001 

MICROT 

0012 

I 

000007 

MLTNE 
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0003 

I 

000023 

MRS 

0004 

R 

000020 

MWH 

0004 

R 

000021 

MWO 

0012 

I 

000010 

MXF1LE 

0012 

I 

OOOOll 

NDP 

0012 

I 

000012 

NLINFS 

0006 

I 

000001 

NOCONV 

0012 

I 

000013 

NP 

0005 

I 

000315 

NP 1 

0005 

I 

000400 

NP2 

0000 

1 

000520 

NURD 

0000 

I 

000534 

NWRD1 

0000 

I 

000535 

NWRD2 

0000 

I 

000536 

NWRD3 

0003 

R 

000024 

PAB 

0003 

P 

000025 

PCCT 

0003 

R 

000026 

PCCIA 

0003 

R 

000027 

PCE 

0003 

R 

000030 

PCS 

0003 

R 

000031 

POO 

0003 

R 

000032 

PFO 

0003 

R 

000033 

PFDS 

0011 

I 

000002 

PLTAPE 

0003 

R 

000034 

PNSS 

0003 

R 

000035 

POD 

0003 

R 

000036 

PODS 

0003 

R 

000037 

RFD 

0003 

R 

000040 

RFOS 

0003 

R 

000041 

ROD 

0003 

R 

000042 

RODS 

0005 

R 

000464 

SCALE 

000 2 

R 

007433 

STDRE 

0005 

R 

000547 

TABX1 

0005 

R 

001545 

TABX2 

0005 

R 

003541 

tabyi 

0005 

R 

004537 

TABY2 

0003 

R 

000043 

TFD 

0003 

R 

000044 

TFDS 

0003 

R 

000045 

TOD 

0003 

R 

000046 

TODS 

0011 

I 

000003 

UNIT 

0003 

R 

000047 

WDOTFS 

0003 

R 

000050 

wooros 

0003 

R 

000051 

WDOTTS 






00101 

1* 

SUBROUTINE OUTPUT 


OUTPOOOO 

00103 

2* 

INTFGER 




BEGFIL, PLTAPE, UNIT 

OUTPOOO 1 

00104 

3* 

REAL 




K,KF,KO,MWH,MWO 

0UTP0002 

00105 

4* 

DIMENSION 


Cl V ( 80) ,IALPHA( 10) , ICANC 50 1 , IDATA ( 14), IFND( 12) 

OUTP0003 

00105 

5* 

1 



t 

101 (80),IOUTLB(80),ITRY(10),NHRD(6) 

0UTP0004 

00106 

6* 

COMMON 




ENG DAT (9,100),ENGRAT<9,501 , FILTH 40, 51 ) 

OUTP0005 

00106 

7* 

1 



f 

FTLT2<9,53) .STORE (60, 53) 

0UTP0006 

00107 

8=0 

COMMON 

/ 

COMRAT 

/ 

AE,ATTC,CFNSV,CFSTD,CFSTDV,CFSV,CSTASD,CSTAT 

DUTP0007 

00107 

9* 

1 



? 

CSTATS , DPF ,DPFS ,DPOS , ECFSTD, ECFS, EPS, ETAC.FSTD 

0UTP0008 

00107 

10* 

2 



» 

I R ATED, ISPS, MRS, PAB, PCCI, PCCIA, PCE, PCS, PDO,PFD 

OUTP0009 

00107 

11* 

3 



V 

PFDS, PNSS, POD, PODS , RFD, RFDS, ROD, RODS, TFD, TFDS 

OUTPOOIO 

00107 

12* 

4 



f 

TOD , TODS , WDOTFS , WDOTOS , WDOTTS 

OUTPOOll 

00110 

13* 

COMMON 

/ 

ENG 

/ 

AC,AT,CF1,CF2,CF3,CF4, DCSTAR, DHO, DOO, DPH, DPO,G 

OUTP0012 

ooiin 

14* 

1 



* 

GAM MA » K , KF , KO , MWH , MWO 

OUTP0013 

00111 

15* 

COMMON 

/ 

FACTOR 

/ 

BIAS C 51 ) , I 8 1 5 1 ) ,IC(51) .IRUNNO, IS ( 5 1 ), NP1( 51) 

0UTP0014 

00111 

16* 

1 



f 

NP2 ( 52) .SCALE (51) ,TABX1(51 ,10) ,TABX2< 51, ,20) 

0UTP0015 

00111 

17* 

2 



> 

TAB Y1 (51,10), TA3Y2(51, 20) 

OUTPOO 16 

00112 

18* 

COMMON 

/ 

ICT 

/ 

ICT1»N0C0NV(9) 

OUTP0017 

00113 

19* 

COMMON 

/ 

LABELS 

/ 

I POINT ( 8 ) , LABELS ( 50 ) ,L ABENS ( 100) , L ABRAT ( 50 ) 

0UTP0018 

00114 

20* 

COMMON 

/ 

ROWS 

/ 

I BEGIN, IFV ,1 NITL , ION, I QUIT , I ROW, J END, JON, J ROW 

OUTPOO 19 

00114 

21* 

1 



# 

KKPBF.G,KKPEND,KKSAVE,LSTPTS 

0UTP0020 

00115 

22* 

COMMON 

/ 

UNITS 

/ 

IOTAPE.MICROT, PLTAPE, UNIT 

0UTP0021 

00116 

23* 

COMMON 

/ 

FILES 

/ 

BEGFIL,IBL,IDUMP, I L I NE , I NT , IPC , IPLOT , ML INE 

OUTP0022 

00116 

24* 

1 



t 

MXFILE , NDP.NLI NES , NP 

0UTP0023 

00117 

2 5* 

DATA 


( IALPHA ( 

I) ,1 = 1 , 10)/ 0000000000060,0000000000061 

0UTP0024 

00117 

26* 

1 




, 0000000000062,0000000000063 

0UTP0025 

00117 

27* 

2 




, 0000000000064,0000000000065 

0UTP0026 

00117 

28* 

3 




, 0000000000066,0000000000067 

0UTP0027 
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00117 

29* 

4 

f 

0000000000070,0000000000071 

/0UTP0O28 

00121 

30* 

DATA 

I BLANK / 

0000000000000 

/OUTP0029 

00123 

31* 

DATA 

IEND / 

6HCASEND 

/0UTP0030 

00125 

32* 

DATA 

UOKI) tl«lf32> / 

6HAC ,6HAE »6HAT ,6HCF1 

0UTP0031 

00125 

33* 

1 

t 

6HCF2 »6HCF3 . ,6HCF4 , 6HDCSTAR 

0UTP0032 

00125 

34* 

2 

♦ 

6HDH0 ,6HDOO ,6HDPH ,6HDP0 

0UTP0033 

00125 

35* 

3 

* 

6HG , 6H GAMMA ,6HIDUMP ,6HIPC 

0UTP0034 

00125 

36* 

4 

? 

6HI PLOT ,6HIRATED,6HK , 6HKF 

0UTP0035 

00125 

37* 

5 

t 

6HK0 ,6HMIGR0T , 6HMWH ,6HMW0 

0UTP0036 

00125 

38* 

6 

t 

6HNDP ,6HNP ,6HPAB , 6HPCS 

QUTP0037 

00125 

39* 

7 

t 

6HPFDS ,6HP0DS , 6HTFDS , 6HT0DS 

/0UTP0038 

00127 

40* 

DATA 

UTRYU ),I = i, 10) / 

0000000000000,0000000000001 

DUTP0039 

00127 

41* 

1 

* 

0000000000002,0000000000003 

0UTP0040 

00127 

42* 

2 

t 

0000000000004,0000000000005 

0UTP0041 

00127 

43* 

3 

? 

0000000000006,0000000000007 

OUTP0042 

00127 

44* 

4 

» 

0000000000010,0000000000011 

/0UTP0043 

00 131 

45* 

DATA 

ITYPE1 / 

1 

/OUTP0044 

00133 

46* 

DATA 

ITYPE2 / 

2 

/OUTP0045 

00135 

47* 

DATA 

ITYPS3 / 

3 

/0UTP0D46 

00137 

48* 

DATA 

<NWRD<M»I = lt6) / 

0050505000505,0050500000505 

OUTP0047 

00137 

49* 

1 

t 

0050500000005,0050000000005 

0UTP0048 

00137 

50* 

2 

t 

0050000000000,0000000000000 - 

/0UTP0049 

00141 

51* 

DATA 

NWRD1 / 

52 

/OUTP0050 

00143 

52* 

DATA 

NWRD2 / 

23 

/0UTPO051 

00145 

53* 

DATA 

NWRD3 / 

42 

/OUTPO052 

00147 

54* 

10 FORMAT (/ 

* BLOCK V OUTPUT — 

DATA TAPE DUMP — RECORD NO. ~ ', 

OUTP0053 

00147 

55* 

113,' -- 

TEST NO. — • f A6f / ) 


0UTPO054 

00150 

56* 

20 F0RMATI5(2X*A6,1X,F10.4I ) 


OUTPOO 55 

00151 

57* 

30 PQRMAT ( • 

1M 


0UTP0056 

00152 

5 8* 

40 FORMAT ( / 

• BLOCK II OUTPUT — RUN NO. — ',A6,' — TIME C — ", 

0UTP0057 

00152 

59* 

1F7.4,' - 

- SEC'//(5(2X,A6,F1L 

.4) ) > 

0UTP0058 

00153 

60* 

50 FORMAT ( / 

* BLOCK III OUTPUT ■ 

— RUN NO. — * , A6, • — TIME C — », 

0UTP0059 

00153 

61* 

1F7.4,* - 

- Sf=C — TIME R — * 

, F7 .4 , * — SEC*//(5I2X,A6,F11.4) )) 

OUTP0060 

00154 

62* 

60 FOR MAT l • 

BLOCK I -- INPUT DATA — LDAD SHEETS — CARD INPUT 

-OUTP0061 

00154 

63* 

1- RUN NO 

. — • t A6» /) 


OUTP0062 

00155 

64* 

70 FORMAT ( 13A6,A2) 


OUTP0063 

00156 

65* 

80 F0RMAT(2X,13A6,A2) 


0UTP0064 

00157 

66* 

90 FORMAT! 

/• BLOCK I — INPUT 

CONSTANTS — CARD INPUT VARIABLES — 

- OUTPO065 

00157 

67* 

1RUN NO. 

— * T A6t /) 


0UTPOO66 

00160 

68* 

100 FORMAT ( 

/• BLOCK I— TABLES OF SCALES, CALIBRATION CURVES AND 

BOUTP0067 

00160 

69* 

1IASES — 

CARD INPUT VARIABLFS — RUN NO. -- *,A6> 

0UTP0068 
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00161 

70* 


110 FORMAT ( /• THE SCALING FACTORS FOR REQUESTED CHANNELS 

ARE --•// 

OUTP0069 

00161 

71* 


14! 2X, 'CH', IX, ’PAR AM' ,6X» ' FACTOR* ) / ( 4 ( 2X, 12, IX , A6, IX , F 10 

.4)1) 

0UTP0O70 

00162 

72* 


120 FORMAT! /• COUNTS TO MILLI-VOLTS CALIBRATION CURVE FOR 

CHANNEL ' 

, 0UTP0071 

00162 

73* 


II2,1X,A6,' CONSISTS OF*, 13,' POINTS — 

' ,//2X,4(2X,'ABSCISSA/ORDINAOUTP0072 

00162 

74* 


2TE',4X1/(2X»4(F10.4, •/• ,F10. 4,2X1) 1 



DUTP0073 

00163 

75* 


130 FORMAT! /* MILLI-VOLTS TO ENG. UNITS 

CALIBRATION CURVE 

FOR CHANNE0UTP0074 

00163 

76* 


1L • , I 3 , IX , A6, * CONSISTS 0F',T3,' POINTS 

//2X,4( 2X, ' ABSCISS A/0RDI0UTP007 5 

00163 

77* 


2NATE* ,4X1 / (2X,4 (F10.4, •/• ,F10. 4,2X1 ) ) 



OUTP0076 

00164 

78* 


140 FORMAT! /• BIAS FACTORS FOR REQUESTED 

CHANNELS — • / /4( 2X , ' CH • , IX , 

•OUTP0077 

00164 

79* 


1PARAM* ,4X,» BIAS', 3X1/14! 2X, 12, IX, A6,F10.4>)> 


0UTP0078 

00165 

80* 


150 c ORMAT ! /» BLOCK IV OUTPUT — RUN NO. 

— * , A6, • — TIME 

C — ' , 

OUTP0079 

00165 

81* 


1F7.4,' — SFC — TIME P — • »F7.4»* -- 

SEC'//(2(2X,A6,F11.4) ,18X, 

0UTP0080 

00165 

82* 


22! 2X,A6,F11.4) ) ) 



0UTP0081 

00165 

83* 

c 

* * CHECK FOR 'BLOCK I* OUTPUT... 



OUTPOO 82 

00166 

84* 


IF ( I8L.EQ.il GO TO 470 



OUTP0083 

00166 

85* 

c 

* * CHECK FOR INITIAL PASS TO CREATE OUTPUT LABELS... 


0UTP0084 

00170 

86* 


IF (IDUl.NE.il GO TO 180 



0UTP0085 

00172 

87* 


ISKIP = 5 * IPC 



0UTP0086 

00173 

88* 


IC T 1 = 0 



OUTP0087 

00174 

89* 


IDU1 = 0 



OUTPOO 88 

00175 

90* 


DO 170 1=1,40 



0UTP0089 

00200 

91* 


IOUTLB ( I 1 = LABFLS ( I 1 



OUTP0090 

00201 

92* 


IF {I-GT.3C1 GO TO 160 



0UTP0091 

00203 

93* 


IOUTLB ( 1+40 1 = LABELS!!! 



0UTP0092 

00204 

94* 


GO TO 170 



0UTP0093 

00205 

95* 


160 CON T TMUS 



DUTP0094 

00206 

96* 


IOUTLB ( 1+40) = LABELS! I +10 1 



OUTPOO 9 5 

00207 

97* 


170 CONTINUE 



OUTP0096 

0021 1 

98* 


HR I T E ! 6,30) 



OUTP0097 

00213 

99* 


IF 1MICR0T.EQ. 17) WRITE (MICROT,30) 



0UTP0098 

00216 

100* 


I LINE = 1 



0UTPO099 

00217 

101* 


MLINE = 1 



0UTP0100 

00217 

102* 

c 

* * CHFCK FOR DATA DUMP... 



OUTPOlOl 

00220 

103* 


180 CONTINUE 



DUTP0102 

00221 

104* 


IF ( IDUMP.EQ. 1 1 GO TO 410 



0U7P0103 

00221 

105* 

c 

* * OUTPUT BLOCK II DATA... 



OUTP0104 

00223 

106* 


DO 400 1 = 1 ,KKSAVE 



0UTP0105 

00226 

107* 


IF { ISKIP. FQ.O) GO TO 230 



OU T PO 106 

00230 

108 * 


IF ( JON.EQ. 1.AND.IBEGN1.EQ.1.AND. I.EQ. 

IROWI GO TO 200 


0UTP0107 

00232 

109* 


IF ( IQUIT.gQ. 99999. AND. IBEGN2.EQ.1. AND 

.I.EQ.JROWl GO TO 

190 

OUTP0108 

00234 

no* . 


I C T 1 = TCT1 + l 



OUTPO 109 
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00235 

111* 



IF ( ISKIP.GT.10) GO TO 210 


OUTPOl 10 

00237 

112* 



IF (M0D(ICT1»ISKIP) . NE . 1 ) GO 

TO 

230 OUTPOl 11 

00241 

113* 



GO 70 210 


0UTP0U2 

00242 

114* 


190 

CONTINUE 


OUTP0113 

00243 

115* 



IPRINT = 1 


OUTPOl 14 

00244 

116* 



IBEGN2 = 2 


OUTPOl 15 

00245 

117* 



JR0W1 = JROW 


OUTP0116 

00246 

118* 



ICT1 = 1 


0UTP0117 

00247 

119* 



GO TO 210 


OUTPOl 18 

00250 

120* 


200 

CONTINUE 


OUTPOl 19 

00251 

121* 



I B r GN 1 = 2 


OUTPOl 20 

00252 

122* 



IRQW1 = IROW 


OUTPO 121 

00253 

123* 



ICT1 = 1 


0UTP0122 

OQ 254 

124* 



IPRINT = 1 


OUTPOl 23 

00255 

125* 


,210 

CONTINUE 


OUTPO 124 

00256 

126* 



J GO = l 


OUTPO 125 

00257 

127* 


220 

CONTINUE 


OUTP0126 

00260 

128* 



ILINE = ILINE + 13 


OUTPO 1 27 

00261 

129* 



IF ( ILINE. GT. NUNES) GO TO 380 

OUTPOl 28 

00263 

130* 



WRITE ( 6*40 ) IRUNNOf FILT2 ( 1 , 5 l ) » 

UOUTLB(J) ,FILT2(I*J) , J=1 ,40 ) , ( IOUTOUTPO 129 

00263 

131* 



1LB ( J + 30 ) » F I LT2 ( I * J) » J=41 * 50) 


OUTPOl 30 

00301 

132* 


230 

CONTINUE 


0UTP0131 

00301 

133* 

C 

* * 

CREATE PLOT TAPE... 


0UTP0132 

00302 

134* 


i 

IF ( I PLOT .E Q. 0) GO TO 240 


0UTP0133 

00304 

135* 



WRITE (PLTAPF) ITYPE1 » NWRD1 * 

<FILT2(I , J>» J=51,52),(FILT2U, J), J=l, OUTP0134 

00304 

136* 



150) 


OUTPO 135 

00320 

137* 


240 

CONTINUE 


OUTPOl 36 

00321 

138* 



IF (MICR0T.NE.17) GO TO 260 


OUTP0137 

00323 

139* 



IG01 = 1 


OUTPO 138 

00324 

140* 


250 

CONTINUE 


OUTPOl 39 

C0325 

141* 



MLINE = MLINE + 13 


OUTP0140 

00326 

142* 



IF (MLINE. GT.NLINES) GO TO 390 

OUTPO 141 

00326 

143* 

C 

* * 

CREATE MICROFILM... 


OUTP0142 

00330 

144* 



WRITE ( MIC ROT *40) IRUNNO* FI LT2 ( I 

*51), (IOUTLB( J)»FILT2(I*J)*J=lf40) , OUTPO 143 

00330 

145* 



UinUTLBt J+30) ,FILT2(I,J),J=41,50) 0UTP0144 

00346 

146* 


260 

CONTINUE 


0UTP0145 

00347 

147* 



IF (ISKIP.EQ.O) GO TO 300 


OUTP0146 

00351 

148* 



IF ( IPRINT. EQ. 1) GO TO 270 


0UTP0147 

00353 

149* 



IF ( ISKIP.GT. 10) GO TO 290 


0UTP0148 

00355 

150* 



IF (MOD (ICT1 ,ISKIP) .NE.l) GO 

TO 

300 OUTP0149 

00357 

151* 



IF ( JOM.EQ. l.AND.I .GE.IR0W1) 

GO 

TO 280 OUTPOl 50 
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00361 

152* 


! c t JON.FQ.-l.AND.IQUIT.LE.LSTPTS) GO TO 

280 

0UTP0151 

00363 

1 53* 


TF ( IQUIT.EQ. 99999) GO TO 280 


OUTP0152 

00365 

154* 


GO TO 400 


0UTP0153 

00366 

155* 

270 

CONTINUE 


0UTP0154 

00367 

156* 


IF (JON .EQ. -1 .AND. IOUIT .EO. 99999) 

IOUIT 

= 100000 OUTP0155 

00371 

157* 

280 

CONTINUE 


DUTP0156 

00372 

158* 


IPRINT = 0 


0UTP01 57 

00373 

159* 


IF (IOUIT .LT. 99999) IROW = 0 


0UTP0158 

00 375 

160* 


IF (IOUIT .LT. 99999) JROW = 0 


0UTP01 59 

00377 

161* 


IR0W1 = 0 


0UTP0160 

00400 

162* 


JR0W1 = 0 


0UTP0161 

00401 

163* 

290 

CONTINUE 


0UTP0162 

00402 

164* 


IGO = 2 


0UTP0163 

00403 

165* 


ILINE = I LINE + 8 


0UTP0164 

00404 

166* 


IF ( ILINE. GT.NLINES) GO TO 380 


DUTP0165 

00406 

167* 


WRITE ( 6 t 50 ) IRUNNOf (FILT2(I,J)»J=51»52)> 

( LABENSf J ) » ENGDAT ( I » J ) t J = 10UTP0166 

00406 

168* 


1,21) 


0UTP0167 

00422 

169* 

300 

CUNTTNUE 


OUTP0168 

00423 

170* 


IF (IQUIT.EQ.0.AND.3300.-FILT2(I , IFV) .GT 

• l.OE 

-7) GO TO 330 OUTP0169 

00425 

171* 


IF (IOUIT. EQ. 100000) GO TO 400 


0UTP0170 

00427 

172* 


IF ( I PLOT . FQ • 0 ) GO TO 310 


0UTP0171 

00431 

173* 


WRITE (PLTAPE) IT YPE 2 , NWRD2 , { FI LT2 ( I , J ) , 

J=51, 

52) , (ENGDAT! I, J) , J=1,OUTP0172 

00431 

174* 


1 21) 


DUTP0173 

00445 

175* 

310 

CONTINUE 


0UTP0174 

00446 

176* 


TF (MICROT.NE. 17) GO TO 330 


0UTP0175 

00450 

177* 


1G01 = 2 


OUTP0176 

00451 

178* 

320 

CONTINUE 


OUTP0177 

00452 

179* 


MLINE = MLINS + 8 


OUTP0178 

00453 

180* 


IF ( MLINE. GT.NLINES) GO TO 390 


0UTP0179 

00453 

181* 

C * * 

CREATE MICROFILM. .. 


OUTPOl 80 

00455 

182* 


WRITE (MICROTj50)IRUNNOj(FILT2(I»J)»J=5l 

» 52 ) t 

(LABENS ( J) » ENGDAT ( I » J0UTP0181 

00455 

183* 


1 ) » J=l» 21 ) 


0UTP0182 

00471 

184* 

330 

CONTTNUF 


0UTP0183 

00472 

185* 


IF (IRATED.EO.O) GO TO 400 


0UTP0184 

00474 

186* 


IF ( .2-FILT2U ,52).GT.1.0E-7) GO TO 400 


0UTP0185 

00476 

187* 


IF (3300. -FILT2(I, IFV). GT.l.OE-7) GO TO 

o 

o 

OUTPOl 86 

00500 

188* 


IF ( NOCONV( I ) .FQ. lj GO TO 400 


0UTP0187 

00502 

189* 


IF (ISKIP.EQ.O) GO TO 350 


0UTP0188 

00504 

190* 


IF ( ISKTP.GT.10) GO TO 340 


OUTPOl 89 

00506 

191* 


IF ( MOO(ICT1,ISKIP) . NE . 1 ) GO TO 350 


OUTP0190 

00510 

192* 

340 

CONTINUE 


0UTPO191 
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00511 

193* 



IGO = 3 

0UTP0192 

00512 

194* 



TUNE = ILINE + 13 

0UTP0193 

00513 

195* 



IF ( ILINE. GT. NLINES) GO TO 380 

0UTP0194 

00515 

196* 



WRITE {6,150>TPUNN0,(FILT2(I, J > , J=5 1 , 52 ) , ( LABR AT { J > , ENGRAT ( I , J > , J 

=OUTPO 1 95 

00515 

197* 



11,40) 

0UTP0196 

00531 

198* 


350 

CONTINUE 

0UTP0197 

00532 

199* 



IF ( I PLOT. EQ. 01 GO TO 360 

0UTP0198 

00534 

200* 



WRITE ( PLT A PE ) TTYPE3,NWRD3, ( FILT2( I ,J) »J= 51,52) » ( ENGRAT ( I » J ) , J= 

0UTP0199 

00534 

201* 



1 1,40) 

0UTP0200 

00550 

202* 


360 

CONTINUE 

OUTP0201 

00551 

203* 



IF (MICROT. NE. 17) GO TO 400 

0UTP02O2 

00553 

204* 



IGGl = 3 

0UTP0203 

00554 

20 5* 


370 

CONTINUE 

0UTP0204 

00555 

206* 



MLINE = MLIN6 + 13 

0UTP0205 

00556 

207* 



IF (MLINE. GT.NLINES) GO TO 390 

0UTP0206 

00556 

20B* 

C 

* * 

CREATE MICROFILM... 

0UTP0207 

00560 

209* 



WRITE (MICROT, 150)1 RUNNO, ( FI LT2 ( I,U),J=51,52)»(LABRAT(J)» ENGRAT ( I 

,OUTP0208 

00560 

210* 



1 J ) * J = 1 * 40) 

0UTP0209 

& 00 574 

‘ 211* 



GO TO 400 

□UTP0210 

a. 00575 

212* 


380 

CONTINUE 

OUTP021I 

*■ 00576 

213* 



ILINE = 1 

0UTP0212 

00577 

214* 



WRITE (6,30) 

OUTP02 1 3 

00601 

215* 



GO TO (220,290,330) , IGO 

0UTP0214 

00602 

216* 


390 

CONTINUE 

0UTP02 1 5 

00603 

217* 



MLINE = 1 

OUTP0216 

00604 

218* 



WRTTE (MICROT, 30) 

OUTP0217 

00606 

219* 



GO TO (250,320,370) ,IG01 

OUTP0218 

00607 

220* 


400 

CONTINUE 

0UTP02 19 

00611 

221* 



GO TO 670 

DUTP0220 

00611 

222* 

C 

* * 

PROCESS BLOCK V DATA, DUMP DATA TAPE... 

OUTP0221 

00612 

223* 


410 

CONTINUE 

0UTP0222 

00612 

224* 

C 

$ * 

COUNT RECORDS... 

0UTP0223 

00613 

225* 



IREC = IREC + 1 

OUTP02 24 

00614 

226* 



WRITE (6,30) 

0UTP0225 

00616 

22 7* 



IF (MICROT. EQ. 17) WRITE (MICROT, 30) 

0UTP0226 

00621 

228* 



ILINE = 1 

OUTP0227 

00622 

229* 



DD 460 M = 1 ,60,4 

OUTP0228 

00622 

230* 

C 

* * 

WRITE HFADER... 

OUTP0229 

00625 

231* 


420 

CONTINUE 

0UTP0230 

00626 

232* 



ILINE = ILINE + 39 

0UTP0231 

00627 

233* 



IF ( ILINE. GT.NLINFS) GO TO 450 

0UTP0232 
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00631 

234* 



WRITE ( 6, 10HREC, IRUNNO 


0UTP0233 

00635 

235* 



IF (MICRO 1- . EQ. 17) WRITE 

(MICROT, 10JIREC, IRUNNO 

0UTP0234 

00635 

236* 

C 

* * 

SET UP SUBSCRIPTS... 


0UTP0235 

00642 

237* 



J = M 


0UTP0236 

00643 

238* 



J1 = M + 1 


OUTP0237 

00644 

239* 



DO 440 L = 1 » 2 


OUTP0238 

00644 

240* 

C 

* * 

OUTPUT 'STORE'... 


0UTP0239 

00647 

241* 



WRITE (6,20) (IOUTLBd ) » 

STOPF( J,I ) ,1=1 ,40) ,( IOUTLBd +40 ), STORE! Jl, 

I0UTP0240 

00647 

242* 



1) ,1=1,30) ,«I0UTLB(I+30) 

,ST0RE(J1, I), 1=41,50) 

0UTP0241 

00670 

243* 



IF ( MICROT . NE . 17 ) GO TO 

430 

0UTP0242 

00672 

244* 



WRITE ( MICROT ,20) (I OUT LB (I) ,$TORE(J,I ), 1 = 1,40 ),( IOUTLBt 1+40 >, STOREOUTP 0243 

00672 

245* 



1< Jl, I), 1 = 1 ,301 , (IQUTLB(I+30) , STORE ( J 1 , 1) f I =41 , 50 ) 

0UTP0244 

00672 

246* 

C 

* * 

INCREASE SUBSCRIPTS... 


0UTP0245 

00713 

247* 


430 

CONTINUE 


0UTP0246 

00714 

248* 



J = J + 2 


0UTP0247 

00715 

249* 



Jl = J + 1 


0UTP0248 

00716 

250* 


440 

CONTINUE 


0UTP0249 

t 00720 

251* 



GO TO 460 


0UTP0250 

is 00721 

252* 


45 0 

CONTINUE 


QUTP0251 

01 00722 

253* 



ILINF = 1 


0UTP0252 

00723 

254* 



WRITE (6*301 


OUTP0253 

00725 

255* 



IF (MICROT. Ed. 17) WRITE 

(MICROT, 30). 

OUTP0254 

00730 

256* 



GO TO 420 


0UTP0255 

00731 

257* 


460 

CONTINUE 


0UTP0256 

00733 

258* 



GO TO 670 


0UTP0257 

00733 

259* 

c 

* * 

PROCESS 'BLOCK I' DATA. 

• • 

OUTP02 58 

00734 

260* 


470 

CONTINUE 


0UTP0259 

00735 

261* 



IPRINT = 0 


0UTP0260 

00736 

262* 



IBEGN1 = 1 


0UTP0261 

00737 

263* 



IBEGN2 = 1 


0UTP0262 

00740 

264* 



IR0W1 = 999 


OUTP0263 

00741 

265* 



JRQW1 = 999 


0UTP0264 

00742 

266* 



I R EC. = 0 


0UTP0265 

00743 

267* 



I LI NE = 0 


OUTP0266 

00744 

268* 



IDU1 = 1 


0UTP0267 

00745 

269* 



L =0 


OUTP0268 

00746 

270* 



DO 480 1=1,12 


0UTP0269 

00751 

271* 



IFND(T) = I BLANK 


OUTP0270 

00752 

272* 


480 

CONTINUE 


0UTP0271 

00754 

273* 



LL =0 


0UTP0272 

00755 

274* 



DO 500 1=1,6 • 


OUTP0273 
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00760 

275* 



J = FLD (1*6-6, 6, IRUNNO) 

0UTP0274 

00761 

276* 



DO 490 M=1 » 1 0 

0UTP0275 

00764 

277* 



IF f J.Nr.ITRY(M)) GO TO 490 

0UTP0276 

00766 

278* 



LL =1 

OUTP0277 

00767 

279* 



L = L + 1 

0UTP0278 

00770 

280* 



IFND(L) = IALPHA(M) 

0UTP0279 

00771 

281* 



GO TO 500 

OUTP02 80 

00772 

282* 


490 

CONTINUE 

0UTP0281 

00774 

283* 


500 

CONTINUE 

0UTP0282 

00776 

284* 



IRUNNO = I BLANK 

OUTP02 83 

00777 

285* 



IBL = I8LANK 

0UTP02 84 

01000 

2 86* 



DO 510 J=1,L 

OUTP0285 

0 1003 

287* 



M = L - J 

0UTP02 86 

01004 

288* 



IBL = IFND(J) * 2 ** (M * 6) 

0UTP0287 

01005 

289* 



IRUNNO = OR (IRUNNO, IBL) 

0UTP0288 

01006 

290* 



IBL = I BLANK 

OUTP0289 

01007 

291* 


510 

CONTINUE 

OUTP0290 

01011 

292* 



Lll = 2 - L / 3 

0UTP029 1 

01012 

293* 



IF (Lll .NE. 0) IRUNNO = IRUNNO * 2 ** (Lll * 6) 

0UTP0292 

01014 

294* 



IRUNNO = OR (IRUNNO, NWRD(Ll) 

0UTP0293 

01015 

295* 



L =0 

0UTP0294 

01015 

296* 

C 

* * 

REWIND OUTPUT TAPE... 

OUTP0295 

01016 

297* 



REWIND IOTAPE 

0UTP0296 

01017 

298* 


520 

CONTINUE 

0UTP0297 

01020 

299* 



ILINE = 0 

0UTP0298 

01020 

300* 

C 

* * 

OUTPUT HEADER... 

0UTP0299 

01021 

301* 



WRITE ( 6,60) IRUNNO 

DUTP0300 

01021 

302* 

C 

* * 

OUTPUT HEADER ON MICROFILM IF ASKED FOR... 

0UTP0301 

01024 

303* 



IF ( MICRO 1 " .EQ. 17) WRITE ( MIC ROT ,60)1 RUNNO 

0UTP0302 

01030 

304* 



ILINE = ILINE + 3 

0UTP0303 

01031 

305* 


530 

CONTINUE 

OUTP0304 

01032 

306* 



READ ( IOTAPE, 70) ( IDATA ( I ) , 1=1 , 14 ) 

0UTP0305 

01032 

307* 

C 

* * 

WRITE CARD IMAGES ON OUTPUT TAPE AND MICROFILM TAPE... 

OUTP0306 

01040 

308* 



WRITE (6,80) (10ATAI 11,1=1,14) 

0UTP0307 

01046 

309* 



IF (MICR0T.EQ.17) WRITE ( MICP0T,80) ( IDATA ( I) , 1=1 , 14 ) 

0UTP03O8 

01055 

310* 



IF ( ID4TAm.E0.IEND) GO TO 540 

0UTP03 09 

01057 

311* 



ILINE = ILINE + 1 

0UTP0310 

01060 

312* 



IF ( ILINE. GE.NLINF.S) GO TO 520 

0UTP0311 

01062 

313* 



GO TO 530 

OUTP0312 

01063 

314* 


540 

CONTINUE 

DUTP03I3 

01063 

315* 

C 

* * 

WRITE PROGRAM CONSTANTS IN 'BLOCK I' REPORT... 

0UTP03 14 
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01064 

01065 

01066 
01067 

01070 

01071 

01072 

01073 

01074 

01075 

01076 

01077 
01100 
01101 
01102 

01103 

01104 

01105 

01106 
01107 
OHIO 
01111 
01112 

01113 

01114 
# 111 5 
01116 
01117 
01120 
01121 
01122 

01123 

01124 

01125 

01126 

01130 

01131 

01132 
01134 
01137 
01143 
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3164 

CIV(l) 

= 

AC 

OUTP0315 

317* 

CIV( 2) 


AE 

OUTP03 16 

318* 

CIV( 3) 

= 

AT 

0UTP0317 

319* 

C I V( 4 ) 

= 

CF1 

OUTP0318 

320* 

C I V( 5 ) 

a 

CF2 

OUTP03 19 

321* 

C IV( 6 ) 

= 

CF3 

0UTP0320 

322* 

C I V( 7 ) 

= 

CF4 

OUTP0321 

323* 

C 1 V( 8 ) 

= 

DCSTAR 

0UTP0322 

324* 

C I V( 9 ) 

a 

DHO 

0UTP0323 

325* 

CIV( 10) 

= 

DOO 

0UTP0324 

326* 

CIV( 11) 

= 

DPH 

OUTP0325 

327* 

CIV< 12) 

a 

DPO 

0UTP0326 

32 8* 

C T V( 13) 

= 

G 

0UTP0327 

329* 

CIV( 14) 

- 

GAMMA ' 

OUTP0328 

330* 

CIV( 15) 

= 

IDUMP 

0UTP0329 

331* 

CIV( 16) 

= 

I PC 

0UTP0330 

332* 

CIV< 17) 

= 

I PLOT 

0UTP033 1 

333* 

CIV( 18) 

a 

IRATED 

0UTP0332 

334* 

CIV( 19) 

a 

K 

OUTP0333 

33 5* 

C I V( 20 ) 

= 

KF 

0UTP0334 

336* 

Cl V< 21 ) 

= 

KO 

0UTP0335 

337* 

CIV( 22) 

a 

MICROT 

0UTP0336 

338* 

CIV( 23) 

= 

MWH 

0UTP0337 

339* 

CIV( 24) 

= 

MWO 

0UTP0338 

340* 

C X V C 25) 

a 

NOP 

0UTP0339 

341* 

C I V( 26 ) 

= 

NP 

OUTP0340 

342* 

Cl V{ 27) 

a 

PAB 

0UTP0341 

343* 

CIV< 28) 

= 

PCS 

0UTP0342 

344* 

C I V( 29 ) 

“ 

PFDS 

0UTP0343 

345* 

Cl V< 30) 

= 

PODS 

0UTP0344 

346* 

C I V( 31 ) 

a 

TFDS 

0UTP0345 

347* 

C I V( 32 ) 

a 

TODS 

OUTP0346 

348* 

LL 

- 

32 

0UTP0347 

349* 

LLL 

= 

0 

0UTP0348 

350* 

IF ( HOD ( LL i 

5) .NE. 0) LLL = 1 

0UTP0349 

351* 

550 CONTINUE 



DUTP0350 

352* 

ILINE 

a 

I LINE + 3 + LLL + LL / 5 

0UTP0351 

353* 

IF (TUNE 

•GT.NLINES) GO TO 560 

OUTP0352 

354* 

WRITE {6, 

90) IRUNNO 

DUTP0353 

355* 

IF (MICROT. 

EQ.17) WRITE ( MICROT r 90) IRUNNO 

0UTP0354 

356* 

WRITE (6, 

20 ) ( I 01 ( I ) ,CIV(I ),I=1,LL) 

0UTP0355 
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01152 

3 57* 



IF (MICRO?. NF. 171 GO TO 570 

0UTP0356 

01154 

35 8* 



WRITE (MICRO?, 20) ( I 01 ( I ) , C I V (I) , I =1 , LL> 

OUTP0357 

01163 

359* 



GO TO 570 

0UTP0358 

01164 

360* 


560 

CONTINUE 

OUTP0359 

01165 

361* 



WRITE (6,30) 

0UTP0360 

01167 

362* 



IF (MICR0T.EQ.17) WRITE (MICR0T,30) 

0UTP0361 

01172 

363* 



ILINF = 1 

0UTP0362 

01173 

364* 



GO TO 550 

OUTP03 63 

01174 

365* 


570 

CONTINUE 

OUTP03 64 

01175 

366* 



LL =0 

0UTP03 65 

01176 

367* 



LLL = 0 

0UTP0366 

01177 

368* 



L =0 

0UTP0367 

01200 

369* 



00 580 1=1,50 

OUTP0368 

01200 

370* 

C 

* * 

WRITE OUT SCALING FACTORS... 

0UTP0369 

01203 

371* 



IF < I S ( I J.NE.l) GO TO 580 

0UTP0370 

01205 

372* 



L = L + 1 

0UTP037 1 

01206 

373* 



ICAN(L) = I 

OUTP0372 

01207 

374* 



IOUTLB(L) = LABELS! I ) 

OUTP0373 

01210 

375* 



CIV(L) = SCALE ( I ) 

0UTP0374 

01211 

376* 


580 

CONTINUE 

OUTP0375 

01213 

377* 



IF (L.GQ.O) GO TO 600 

0UTP0376 

01215 

378* 



IF (MOD (L ,4) ,NE. 0) LL = 1 

0UTP0377 

01217 

379* 



ILINE = ILINE +6+LL+L/4 

0UTP0378 

01220 

380* 



IF ( ILINE. LE.NLINES) GO TO 590 

OUTP0379 

01222 

381* 



WRITE (6,30) 

0UTP0380 

01224 

382* 



IF (MICR0T.EQ.17) WRITE (MICROT,30) 

0UTP0381 

01227 

383* 



ILINE =7+LL+L/4 

0UTP0382 

01230 

384* 


59(fC0NTINUE 

OUTP03 83 

01231 

385* 



WRITE ( 6, 100) IRUNNO 

0UTP0384 

01234 

386* 



WRITE (6,1 10 MICA N( M) , IOUTLB(M) ,CIV(M) ,M=1,L) 

0UTP0385 

01244 

387* 



IF (MICROT.NE. 17) GO TO 600 

0UTP03 86 

01246 

388* 



WRITE (MIC ROT »100)TRUNND 

0UTP0387 

01251 

3 89* 



WRITE (MICROT ,110) (TCAN(M) , I OUT LB (M) ,CIV(M),M=1,L) 

0UTP0388 

01261 

390* 


600 

CONTINUE 

0UTP0389 

01262 

391* 



DO 640 1=1,50 

0UTP0390 

01262 

392* 

C 

* * 

WRITE OUT CALIBRATION CURVES... 

GUTP0391 

01265 

393* 



IF (IC(I).EQ.O) GO TO 640 

QUTP0392 

01267 

394* 



LL = I 

0UTP0393 

01270 

395* 



J = NP1U ) 

0UTP0394 

01271 

396* 



J1 = NP2 ( I ) 

0UTP0395 

01272 

397* 



LLL = 0 

0UTP03 96 
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01273 

398* 


IF (MOD ( J » 4) . NE . 0) LLL = 1 


0UTP0397 

01275 

399* 


IF (.MOD ( J 1 , 4 ) .ME. 0) LLL = LLL + 1 


0UTP039B 

01277 

400* 


IF (L.NF.O) GO TO 620 


OUTP0399 

01301 

401* 


IL IMF = ILINF + 8 + LLL + J / 4 

+ J1 / 4 

OUTP0400 

01302 

402* 


IF ( I LI NE.LE.NL I NES) GO TO 630 


OUTP040 1 

01304 

403* 

610 

CONTINUE 


OUTP0402 

01305 

404* 


WRITE (6,30) 


OUTP0403 

01307 

405* 


IF (MICPOT.EQ. 17) WRITE (MICR0T,30) 


0UTP0404 

01312 

406* 


WRITF ( 6 , 100 ) IP UNNO 


0UTP0405 

01315 

407* 


IF ( MICROT.EQ. 17) WRITE (MICROT, 100) 

IRUNNO 

0UTP0406 

01321 

408* 


L - =6 


0UTP0407 

01322 

409* 


ILINE = 11 + LLL + J / 4 + J1 / 

4 

0UTP0408 

01323 

410* 


GO TO 630 


OUTP0409 

01324 

411* 

620 

CONTINUE 


OUTP0410 

01325 

412* 


ILINE = ILINE + 8 + LLL + J / 4 

* J1 / 4 

0UTP04 1 1 

01326 

413* 


IF ( ILINE. GT.NLINES) GO TO 610 


0UTP0412 

01330 

414* 

630 

CONTINUE 


0UTP0413 

01331 

415* 


WR ITF (6,120>LL,LABELS(I) , J, (TABX1 ( I 

»M) ,TABY1( I,M)»M=1»J) 

OUTP0414 

01343 

416* 


WRITE ( 6, 130) LL, LABELS! I) ,J1,(TABX2< 

I ,M) ,TABY2 (I»M),M=1,J1) 

OUTP0415 

0 1355 

417* 


IF (MICP0T.NE.17) GO TO 640 


0UTP0416 

01357 

418* 


WR ITE (MICROT ,120)LL, LABELS! I)»J, (TABX1 ( I ,M) ,TABY1 ( I ,M ) , M = l, J ) 

OUTP0417 

01371 

419* 


WRITF ( MICR OT, 1 30 ILL, LABELS ( I) , J 1 , ( TABX2 1 1 , M) ,TABY2< I ,M ) , M=1 , J 1 ) 

0UTP041 8 

01403 

420* 

640 

CONTINUE 


0UTP0419 

0140 5 

421* 


L =0 


0UTP0420 

01406 

422* 


DO 650 1=1,50 


OUTP0421 

01406 

423* 

c * * 

WRITE OUT BIASING FACTORS... 


0UTP0422 

01411 

424* 


IF (IB(I).EO.O) GO TO 650 


0UTP0423 

01413 

425* 


L = L + 1 


OUTP0424 

01414 

426* 


CIV(L) = BIAS(I) 


0UTP0425 

01415 

427* 


ICAN(L) = I 


0UTP0426 

01416 

42 8* 


IOUTLB(L) = LABELS! I ) 


OUTP0427 

01417 

429* 

650 

continue 


OUTP0428 

01421 

430* 


IF (L.FQ.O) GO TO 670 


0UTP0429 

01423 

431* 


LLL = 0 


OUTP0430 

01424 

432* 


IF (MOD ( L ,4) .ME. 0) LLL = 1 


0UTP0431 

01426 

433* 


ILINF = ILINE + 4 + LLL + L / 4 


0UTP0432 

01427 

434* 


IF (ILINE. LE.NLINES) GO TO 660 


0UTP0433 

01431 

435* 


WRITE (6,30) 


0UTP0434 

01433 

436* 


IF (MICROT.EQ. 17) WRITE (MICROT, 30) 


OUTP0435 

01436 

437* 


ILINE = 0 


OUTP0436 

01437 

438* 

660 

CONTINUE 


0UTP0437 
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01440 

439* 

01450 

440* 

01450 

441* 

01461 

442* 

01462 

443* 

01463 

444* 

01464 

445* 


WRITS <6,1401(ICAN(K),I0UTLB(M) , C I V ( M >',M= 1 , L ) 0UTP0438 

IF (MIC»OT.EQ. 17) WRITE ( MIC ROT, 140 ) ( ICAN( M) > IOUTLB ( H) » CIV( M> »M=1»QUTPQ439 


*L ) 

0UTP0440 

l LINE =0 

0UTP0441 

670 CONTINUE 

0UTP0442 

RETURN 

0UTP0443 

END 

0UTP0444 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 *DI AGNOSTIC* MESSAGE! S ) 


OUTPUT 

SYMBOLIC 

25 

JUN 

70 

12S27E08 

0 

01552426 

14 

445 

I DELETED) 

OUTPUT CODE 

RELOCATABLE 

25 

JUN 

70 

12S27S08 

1 

01566554 

60 

1 

(DELETED) 







0 

01566650 

14 

188 
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S FDR,* OXZOX, QXZQX ' 14 JUL 70 17£ 6S15.24Q 

UN I VAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DOME DM 14 JUL 70 AT 17C06&15 


SU8R0U T INE OXZOX ENTRY POINT 000107 
STORAGE USED (BLOCK, NAME, LENGTH) 

0001 *C0D5 00C114 

0000 *DATA 00C053 

0002 7BLANK 000000 


FXTFRN4L REFERENCES (BLOCK, NAME) 
£ 0003 MERR3S 

i 

-vj 


STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION, NAME) 

0000 R 000003 B 0000 R 000004 C 0000 R 000005 D 0000 R 000001 PATM 0000 R 000000 T 

0000 R 000002 U 


00101 

1* 

SUBROUTINE 

OXZOX (TOI , PCI I , ZOX) 



OXZOOOOO 

00103 

2* 

T 


5.0 * (TOI + 459.7) / 9.0 



OXZOOOOl 

00104 

3* 

PATM 


POII / 14.696 



DXZ00002 

00105 

4* 

U 

- 

1.0 / T 



QXZ00003 

00106 

5* 

3 

= 

-8 . 713694 5E-6 + (4.606507E-1 + 

(-1.3795294E+2 + 


OXZ00004 

00106 

6* 

1 


(-2.1663662E+4 + (2. 2765597E+6 

+ (-2.2174297E+8 

+ 

OXZ00005 

00106 

7* 

2 


( 1 .0580819-1 + 10 - 2. 1920552E+1 1 

* U) * U) * U) * 

U) * 

DXZ00006 

00106 

8* 

3 


U) * U) * U 



OXZOOOC7 

00107 

<}-* 

C 


6.753855E-6 + (-1 .0277 166E-2 + 

(6.5537055 + 


0XZ00003 

00107 

10* 

1 


(-2.1384872E+3 + ( 4- 2428099E+5 

+ (-5.3177903E+7 

+ 

0XZO0009 

00107 

11* 

2 


1 3 . 2860596E + 9 - 1 . 13 14356E + 1 1 * 

U) * U) * U) * l 

u) * u> 

0XZ00010 

001^7 

12- 

3 


* J) * >J 



oxznoon 
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00110 

13* 

D 

= -1.7671108E-10 + (-6. 3527586 E— 6 * < 1 . 56 10387E-2 + 

OXZ00012 

00 110 

14* 

1 

(4.6457575 + ( 4. 32 132 23E+2 + < 7 . 8725193E+4 + 

OXZOOO 13 

00110 

IS* 

2 

( 2 . 855 241E + 6 + 1.4952967E+8 * 8 1 * B ) * B ) * B ) * B ) 

OXZOOO 14 

00110 

16* 

3 

* 8) * 8 

OXZOOO 15 

00111 

17* 

ZOX 

= 1.0 + <B + (C + D * PATM) • * PATM) * PATH 

0XZ00016 

00112 

18* 

RETURN 


OXZOOO 1 7 

00113 

19* 

END 


OXZOOO 18 


END OF UNIVAC 1108 FORTRAN V COMPILATION. 0 ^DIAGNOSTIC* MESSAGE(S) 


OXZOX 


SYMBOLIC 

25 

JUN 

70 

12£27£09 

0 

01573760 

14 

19 

(DELETED) 

oxzox 

CODE 

RELOCATABLE 

25 

JUN 

70 

12£27£09 

1 

01574372 

24 

1 

(DELETED) 








0 

01574422 

14 

12 



£ HOG HD011C-RAT=n 
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6 FOR,* RATED, RATED 14 JUL 70 17E 6616.290 

UMIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17606616 


SUBROUTINE RATED ENTRY POINT 001316 

STORAGE USED (BLOCK, NAME, LENGTH) 


0001 

*CODE 

001337 

0000 

*DAT A 

000551 

0002 

*BLANK 

015607 

0003 

COMRAT 

000052 

0004 

ENG 

000022 

000 5 

FILES 

000014 

0006 

ICT 

000012 

0007 

LABELS 

000320 

0010 

UNITS 

000004 


EXTERNAL REFERENCES (BLOCK, NAME) 


0011 

HZH 

0012 

OXZOX 

0013 

SORT 

0014 

NWDUi 

0015 

NI01S 

0016 

NI02$ 

0017 

NERR2S 

0020 

NERR3* 


STORAGE 

ASSIGNMENT FOR 

VARIABLES 

(BLOCK, 

TYPE, 

RELATIVE 

LOCATION, 

NAMF) 







0000 

000116 

10F 

0001 

000467 

100L 

0001 

000506 

1 10L 

0001 

000510 

120L 

0001 

000513 

130L 

0001 

000547 

140L 

0001 

000574 

150L 

0001 

000630 

160L 

0001 

000655 

170L 

0001 

000703 

180L 

0001 

000722 

190L 

0000 

000127 

20F 

0001 

000741 

200L 

0001 

001103 

210L 

0001 

001234 

220L 

0001 

001256 

230L 

0000 

000315 

30 F 

0000 

000370 

40F 

0000 

000443 

50F 

0000 

000500 

60F 

0001 

000147 

70L 

0001 

000404 

80L 

0001 

000441 

90L 

0004 R 

000000 

AC 

0003 R 

000000 

A6 



HDO l 1C-RATFD 


DATE 


140770 PAGE 


BO 


0004 

R 

000001 

AT 

0003 

R 

000001 

ATTC 

0005 

R 

000000 

BEGFIL 

0003 

R 

000002 

CFNSV 

0003 

R 

000003 

CFSTD 

0003 

p 

000004 

CFSTDV 

0003 

R 

000005 

CFSV 

0004 

R 

000002 

CF1 

00 04 

R 

000003 

CF2 

0004 

R 

000004 

CF3 

0004 

R 

000005 

CF4 

0003 

R 

000006 

CSTASD 

0003 

R 

000007 

CSTAT 

0003 

R 

000010 

CSTATS 

0004 

R 

000006 

DCSTAR 

0004 

P 

000007 

DHO 

0004 

?. 

000010 

000 

0003 

R 

000011 

DPF 

0003 

R 

000012 

DPFS 

0004 

R 

000011 

DPH 

0004 

R 

000012 

DPO 

0003 

R 

000013 

DPOS 

0003 

R 

000015 

ECFS 

0003 

R 

000014 

cCFSTD 

0002 

R 

OOOOOO 

ENGDAT 

0002 

R 

001604 

ENGRAT 

0003 

R 

000016 

EPS 

0003 

R 

000017 

ETAC 

0002 

R 

002506 

FILT1 

0002 

R 

006476 

FILT2 

0003 

R 

000020 

FSTO 

0000 

R 

000107 

FT 

0004 

R 

000013 

G 

0004 

R 

000014 

GAMMA 

0005 

I 

000001 

IBL 

0006 

I 

000000 

I CT1 

0005 

I 

000002 

IDUMP 

0000 

I 

000113 

I GO 

0000 

I 

•000114 

I GO 1 

0005 

I 

000003 

ILINE 

0005 

1 

000004 

INT 

0010 

I 

000000 

IOTAPE 

0005 

I 

000005 

I PC 

0005 

I 

000006 

I PLOT 

0007 

I 

OOOOOO 

I POINT 

0003 

I 

000021 

XRATED 

0003 

R 

000022 

ISPS 

0000 

I 

000110 

J 

0004 

R 

000015 

K 

0004 

I 

000016 

KF 

0004 

I 

000017 

KO 

0007 

I 

000010 

LABELS 

0007 

I 

000072 

LABENS 

0007 

I 

000236 

LABRAT 

0010 

I 

000001 

MICRO? 

0005 

! 

000007 

MLINE 

0003 

R 

000023 

MRS 

0004 

R 

000020 

MWH 

0004 

R 

000021 

MWO 

0005 

I 

000010 

MXFILE 

0000 

I 

000077 

M2 

0000 

I 

000100 

M3 

0000 

I 

000101 

M4 

0000 

I 

000102 

M5 

0000 

I 

000103 

M6 

0000 

I 

000104 

M7 

0000 

I 

000105 

MB 

0005 

I 

000011 

NDP 

0005 

I 

000012 

NLINES 

0006 

I 

000001 

NOCONV 

0000 

I 

000106 

NOIT 

0005 

I 

000013 

NP 

0003 

R 

000024 

PAB 

0000 

R 

000000 

PC 

0003 

R 

000025 

PCCI 

0003 

R 

000026 

PCCIA 

0003 

R 

000027 

PCE 

0003 

R 

000030 

PCS 

0000 

R 

000011 

PDFO 

0003 

R 

000031 

PDO 

0000 

R 

000022 

PDOO 

0003 

R 

000032 

PFD 

0003 

R 

000033 

PFDS 

0010 

R 

000002 

PLTAPE 

0003 

R 

000034 

PNSS 

0003 

R 

000035 

POD 

0003 

p 

000036 

PODS 

0000 

R 

000033 

PTFO 

0000 

R 

000044 

PTOO 

0003 

R 

000037 

RFD 

0003 

R 

000040 

RFDS 

000 3 

R 

000041 

ROD 

0003 

R 

000042 

RODS 

0002 

R 

007433 

STORE 

0003 

R 

000043 

TFD 

0003 

R 

000044 

TFDS 

0000 

R 

000055 

TFOI 

0000 

R 

000115 

TIME 

0003 

R 

000045 

TOD 

0003 

R 

000046 

TODS 

0000 

R 

000066 

TOOI 

0010 

R 

000003 

UNIT 

0003 

R 

000047 

WDOTFS 

0003 

R 

000050 

WDOTOS 

0003 

R 

000051 

WDOTTS 

0000 

R 

000111 

ZH 

0000 

R 

000112 

ZOX 














00101 

1* 

SUBROUT INF RATED 


(I , PNS j WDOTF » WOOTO , WDQTT * I N ITL ) 

RATEOOOO 

00103 

2 * 

REAL 



T S PS , K * MWH t MWO* MRS 

RATE0001 

00104 

3* 

DIMENSION 


PC<9),PDF0<9>»PD00(9) f PTFO ( 9 > , PTOO ( 9 ) , TFOI < 9 > 

RATE0002 

00104 

4 * 

1 


t 

TOOI (9) 

RATE0003 

00105 

5* 

COMMON 



ENGDAT (9, 100), ENGRAT <9, 50 >, FILTH 40, 51) 

RATE0004 

00105 

6* 

1 


♦ 

FI LT 2(9, 53) ,STQRE(60,53) 

RATE0005 

00106 

7* 

COMMON / 

CCMRAT 

/ 

AE, ATTC, CFNSV, CFSTD, CFSTDV, CFSV, CSTASD, CSTAT 

RATE0006 

00106 

a* 

l 


f 

C STATS, DPF, DPFS, DPOS, ECFSTD, ECFS, EPS, ET AC, FSTD 

RATE0007 

00106 

9* 

2 


t 

I RATED, ISPS, MRS, PAB, PCCI, PCCI A, PCE, PCS, PDO, PFD 

RATE0008 

00106 

10* 

3 


> 

PFDS, PNSS, POD, PODS ,RFD, RFDS, ROD, RODS, TFD, TFDS 

RATE0009 

00106 

11* 

4 


t 

TOD, TODS, WDOTFS, WDOTOS, WDOTTS 

RATEOO 10 

00107 

12* 

COMMON / 

ENG 

/ 

AC,4T,CF1»CF2,CF3,CF4,DCSTAR»DH0»D0G* DPH, DPO, G 

RATEOOl 1 

00107 

13* 

1 


f 

G A MMA , K , KF , KO , MWH , MWO 

RATEOO 12 

00110 

14* 

COMMON / 

FILES 

/ 

BEGFIL, IBL, IDUMP, I LINE, INT, I PC, I PLOT, MLINE 

RATE0013 

00110 

15* 

1 


f 

MXFILE, NDP, NLINES ,NP 

RATE0014 
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00111 

16* 

COMMON / 

TCT / 1 CT1 , NOCON V (9 ) 



RATEOO 15 

00112 

17* 

COMMON / 

LABELS / IPOINT (8) , LABELS(50) ,LABc 

NS (100)»LABRAT( 50) RATE0016 

00113 

18* 

COMMON / 

UNITS / IOTAPE,MICROT,PLT.APE,UNIT 



RATEOO 17 

CO 1 1 4 

19* 

10 FORMAT ( * 

0»CCI DID NOT CONVERGE 

AFTER* ,13,' 

ITERATIONS.' ) 

RATEOO 18 

00115 

20* 

20 FORMAT ( • 

OJ =*,115, • FT 

=• ,E15.8,' 

TFD 

= ' E 15. 8, 

• TOO =RATE00 19 

00115 

21* 

1*615.8, * 

PFD =* ,E15.8/* POD 

= • , E15.8 , • 

ZH 

= ' E15.8, 

• ZOX =RATE0020 

00115 

22* 

2*615.8, • 

RFD =',615.8,' ROD 

=* .E15.8/* 

RFDS 

= ' E15.8, 

» RODS =RATEOO 2 1 

00115 

23* 

3*615.8, * 

TIME ='.615.8,' DPF 

=« ,E15.8,' 

PDO 

= • E 1 5. 8/ 

» TFDS =RATE0022 

00115 

24* 

4*E15.8, ■ 

TODS =' »E15.8, • PCS 

= ' ,E15.8, • 

PCCI 

='E15.8, 

• PCCIA =RATE0023 

00115 

25* 

5*615.8/* 

DPFS =* »E15. 8 , ' WDOTFS = ' »E15.8»* 

WDOTF 

='E15.8, 

' OPOS =RATE0024 

00115 

26* 

6*615.8, • 

WDOTOS=* ,615.8/' WDOTO =*,E15.8»* 

MRS 

= ' E 15. 8, 

• WDOTTS=RATE0025 

00115 

27* 

7*6-15.8, • 

WDOTT =• ,E 15. 8, • PNSS 

=• ,E15.8/' 

CST ATS= ' E 15 . 8, 

• ATTC =RATE00 26 

00115 

2 8* 

8*615.8, ' 

AT =',E15.8,» EPS 

=• ,ei5.8,» 

A6 

= * E 15 . 8/ 

» CSTASD=RATE0027 

00115 

29* 

9*615.8, • 

G =',615.8,' PCE 

=• ,E15.8) 



RATE0028 

00116 

30* 

30 FORMAT [ » 

OONE OR MORE OF THE FOLLOWING PARAMETERS 

HAS GONE 

NEGATI VERATE0029 

00116 

31* 

1 INDICATING A CHAMBER PRESSURE 

GREATER THAN 

LINE 

PRESSURE 

.»/' STANRATE0030 

00116 

32* 

2DAR0 IZATIOM HILL BE DISCONTINUED FOR THIS TIME SLICE.'/* 

DPFS =' . ERATE003 1 

00116 

33* 

315.8,* RFDS =*,615.8,' DPF =», 

E15.8 , ' RFD = 

' , £15 

.8) 

RATE0032 

00117 

34* 

40 FORMAT ( • 

OONE OR MORE OF THE FOLLOWING PARAMETERS 

HAS GONE 

NEGATI VERA TEOO 3 3 

00117 

35* 

1 INDICATING A CHAMBER PRESSURE 

GREATER THAN 

LINE 

PRESSURE 

. •/• STANRAT50034 

00117 

36* 

2DAROIZATION WILL BE DISCONTINUED FOR THIS TIME SLICE.'/* 

DPOS =* , ERATE0035 

00117 

37* 

315.8,* RODS =*,E15.8,* PDO =*, 

F15.8 , ' ROD = 

• ,E15 

.8) 

RATE0036 

00120 

38* 

50 FORMAT ( • 

OTHE STANDARDIZED MIXTURE RATIO HAS 

GONE 

BEYOND ONE OF THERATE0037 

00120 

39* 

1 ALLOWABLE LIMITS OF 1.0 TO 10 

.0.*/' STANDARDIZATION WILL 

BE DISCORATE0038 

00120 

40* 

2NTINUED 

FOR THIS TIME SLICE. 

MRS =' , E15 . 8) 



RATE0039 

00121 

41* 

60 FORMAT ( • 

1*1 




RATE0040 

00122 

42* 

IF ( INITL.EQ.l) GO TO 190 




RATE004 1 

00124 

43* 

PC (II 

= FI LT2 ( I , M2) 




RATE0042 

00125 

44* 

PTFO ( I I 

= FI LT2 ( I , M3) 




RATE0043 

00126 

45* 

PTOOU I 

= FILT2 ( I , M4) 




RATE0044 

00127 

46* 

PDFO(I) 

= FILT2(I ,M5) 




RATE0045 

0013C 

47* 

PDOO(I) 

= F I LT2 ( I , M6 ) 




RATE0046 

00131 

48* 

TFOI ( I I 

= FILT2(I,M7) 




RATE0047 

00132 

49* 

TOOI (I) 

= FILT2 ( I , M8 ) 




RATE0048 

00133 

50* 

noit 

= 10 




RATT0049 

00134 

51* 

FT 

= 0.0 




RATE0050 

00135 

52* 

J 

= 0 




RATEOO 5 1 

00136 

53* 

TFD 

= tfoI (I) 




RATEOO 52 

00137 

54* 

TOD 

= TOOI (I ) 




RATF0053 

00140 

55* 

PFD 

= PTFO(I) - PDPO(I) 




RAT60054 

00141 

56* 

POD 

= PTOO(I) - PDOO(I) 




RATE0055 
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00142 

57* 

CALL HZH (TFD,PFD,ZH> 



RATE0056 

00143 

5 8* 

CALL 0X70X 

(TOD. POD, ZOX) 



RATE0057 

00144 

59* 

RFD 

PFD * MWH / 10.73 / ZH / (TFD + 459.7) 



RATE0058 

00145 

60* 

ROD 

POD * MWO / 10.73 / ZOX / (TOD 4- 459.7) 



RATE0059 

00146 

61* 

RFDS = 

PFDS * MWH / 10.73 / ZH / (TFOS + 459.7) 



RATE0060 

00147 

62* 

RODS 

POOS.* MWO / 10.73 / ZOX / (TODS + 459.7) 



RATE006 1 

00150 

63* 

DPF 

PFD - PC ( I ) 



RATEOO 62 

00151 

64* 

PDO 

POD - PC (I ) 



RATE0063 

00152 

6 5* 

PCCI 

PCS 



RATE0064 

00153 

66* 

70 CONTINUE 




RATE0065 

00154 

67* 

J = 

J + 1 



RATE0066 

00155 

68* 

DPFS 

0.0 



RATE0067 

00156 

69* 

WDOTFS 

0.0 



PATF0068 

GO 1 57 

70* 

DPOS 

0.0 



RATE0069 

00160 

71* 

WDJTOS 

0.0 



RATEOO 70 

00161 

72* 

MRS 

0.0 



R ATE0071 

00162 

73* 

WDOTTS 

0.0 



RATE0072 

00163 

74* 

PNSS = 

0.0 



RATE0073 

00164 

75* 

CSTATS 

0.0 



RATE0074 

00165 

76* 

ATTC 

0.0 



RATE0075 

00166 

77* 

EPS 

0.0 



RATE0076 

00167 

78* 

CSTASD 

0.0 



RATS0077 

00170 

79* 

PCCIA 

0.0 



RATE0078 

00171 

80* 

PCF 

0.0 



PATE0079 

00172 

81* 

DPFS 

PFDS - PCCI 



RATEOO 80 

00173 

82* 

IF (DPF5.LT 

•O..OR.RFDS. LT.O. .OR .DPF . LT .0 . . OR. RFD .LT .0 . ) GO 

TO 

130 

PATE0081 

00175 

83* 

WDOTFS 

SORT (DPFS * RFDS / DPF / RFD) * WDOTF 



RATE0082 

00176 

84* 

DPOS 

PODS - PCCI 



RATE0083 

00177 

85* 

IF { DPOS • L“ 

'.0.. OR. RODS. LT.O. .OR. PDO. LT.O ..OR. ROD. LT.O. ) GO 

TO 

150 

RATEOO 84 

00 201 

86* 

WDOTOS 

SORT (DPOS * RODS / PDO / ROD) * WDOTO 



RATEO085 

00202 

87* 

MRS 

WDOTOS / WDOTFS 



RATEOO 86 

00203 

88* 

IF (MRS.LT. 

1..0R.MRS.GT. 10. I GO TO 170 



RATE0087 

00205 

89* 

WDPT T S 

WDOTOS 4 WDOTFS 



R ATE0088 

00206 

90* 

°NSS 

PCCI * K 



RATEC089 

00207 

91* 

CST4TS 

6428.561 + 2233.567 * MRS - 885.0861 * MRS ** 2 

+ 


RATE0090 

00 20 7 

92* 

1 

143.8467 * MRS ** 3 - 11.13366 * MRS **4 4- 



PATE0091 

00207 

93* 

2 

0.3348754 * MRS ** 5 



RATE0092 

00210 

94* 

ATTC = 

■iT + CT 



RAT50G93 

00211 

95* 

EPS 

AC / ATt C 



RATE0094 

00212 

96* 

CSTASD 

CSTATS * STAC 



RATF.0093 

CC213 

97* 

PCCIA 

CSTARD * WDHTTS / G / ATTC 



RATEOO 96 
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00214 

98* 


PCE = PCCI - PCCIA 

P4TE0097 

00215 

99* 


IF (<\BS( POE) .LE..1 ) GO TO 80 

RAT20098 

00717 

100* 


IF (J.sQ.NOm GO TO 90 

RATE0099 

00221 

101* 


PCCI = D CCI* 

R4T20100 

00222 

102* 


GO *0 70 

P ATE0I01 

00223 

103* 

80 

CONTINUE 

RATE0102 

00224 

104* 


C FNSV = 1.477818 + 3.907214E-3 * HRS - 5.934259E-4 * MRS 

* MRS RATE0103 

00224 

105* 


1 + 2 . 8732 596-5 * MRS * HRS * MRS 

RATED 1 04 

00225 

106* 


EC F STD = ECFS 

RATE01 05 

00226 

107* 


CFSTOV = FCFSTD * CFNSV 

RAT50106 

00227 

108* 


CFS T 0 = CFSTOV - PAB * EPS / PCS 

R ATE0107 

00230 

109* 


FSTO = PCS * ATTC * CFSTD 

PATE0108 

00231 

110* 


ISPS = FSTO / HOOTTS 

RATE0109 

00232 

ill* 


GO TO 120 

RATE0110 

00233 

112* 

90 

CONTINUE 

RATE0111 

00234 

113* 


ILINE = ILINE + 2 

RATE0112 

00235 

114* 


IGO = 1 

RATE0113 

00236 

115* 


IF ( TLINE.GT.NLINES) GO TO 220 

RATE0114 

00240 

116* 


WRITE ( 6 r 10 ) NOIT 

RATE01 15 

00243 

117* 


IF (MICP0T.NE.17) GO TO 200 

RATE01 16 

00245 

118* 


IG01 = 1 

RATE01 17 

00246 

119* 

100 

CONTINUE 

RATE0118 

00247 

120* 


MLINE = MLINE + 2 

RATE01 19 

00250 

121* 


IF (MLINE. GT. NUNES) GO TO 230 

RATE0120 

00252 

122* 


WRITE (MICROT, 10)N0IT 

RATE0121 

00255 

123* 


GO TO 200 

RAT50122 

00256 

124* 

110 

CONTINUE 

R ATEC123 

00 257 

125* 


NQCONV ( I )= 1 

RATE0124 

00260 

126* 

120 

CONTINUE 

RATS0125 

00261 

127* 


RFTURN 

RATE0126 

00262 

128* 

130 

CONTINUE 

RATE0127 

00263 

129* 


ILINE = ILINE + 4 

RATE0128 

00264 

130* 


IGO = 2 

RATE0129 

00265 

131* 


IF ( ILINE. GT.NLINES) GO TO 220 

RATE0130 

00267 

132* 


WRITE (6,30)DPFS,RFDS,DPF,RFD 

RATE0131 

00275 

133* 


IF (MICROT. NE. 17) GO TO 200 

RATE0132 

00277 

134* 


IGO 1 = 2 

RATE0133 

00300 

135* 

140 

CONTINUE 

RATE0134 

00301 

136* 


MLINE = MLINE + 4 

P ATE0135 

00 30 2 

137* 


IF (MLINE. GT.NLINES) GO TO 230 

RATS0136 

0^304 

138* 


WR-ITE (MICROT, 30 ) DPFS , RFDS, DPF , R FO 

RATE0137 
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00312 

139* 


GO TO 200 


RATE0138 

00313 

140* 

150 

CONTINUE 


RATEQ 1 39 

00314 

141* 


ILINE = ILINE * 4 


RATE0140 

CO 31 5 

142* 


IGO = 3 


RATE0141 

00316 

143* 


IF ( IL T NE.GT.NLINFS) GO 

TO 220 

R4TE0142 

00320 

144* 


WRITE (6,40IDPOS, RODS, POO, ROD 

RATE0143 

00326 

145* 


IF (MICROT.NE. 17) GO TO 

200 

RATE0144 

00330 

146* 


IG01 = 3 


RATE0145 

00331 

147* 

160 

CONTINUE 


RATE0I46 

00332 

148* 


ML I ME = MLINE + 4 


RATE0147 

00333 

149* 


IF ( ML I NE.GT. NLINESI GO 

TO 230 

RATE0148 

00335 

150* 


WRITE (MICROT »40)DPOS,RODS,PDO,RQD 

RATE0149 

00343 

151* 


GO TO 200 


RATE0150 

00344 

152* 

170 

CONTINUE 


RATE0151 

00345 

153* 


ILINE = ILINE + 3 


RATE0152 

00346 

154* 


IGO = 4 


RATE0153 

00347 

155* 


IF ( ILINF.GT.NLINES) GO 

TO 220 

RATE0154 

00351 

156* 


WRITE ( 6, 501 MRS 


RATE0155 

00354 

157* 


IF ( MICROT. NE. 17) GO TO 

200 

RATE01 56 

00356 

158* 


IG01 = 4 


RATS0157 

00357 

159* 

180 

CONTINUE 


RATE01 58 

00360 

160* 


MLINE = MLINE + 3 


RATE0159 

00361 

161* 


IF (MLINE. GT.NL1NES) GO 

TO 230 

RATE0160 

00363 

162* 


WRITE (MICROT, 50) MRS 


RATE016 1 

00366 

163* 


GO TO 200 


RATE0162 

00367 

164* 

190 

CONTINUE 


RATE0163 

00370 

165* 


M2 = I POI NT ( 2 ) 


RATE0164 

00371 

166* 


M3 = I POI NT ( 3 ) 


RATED 165 

00372 

167* 


M4 = I POI NT ( 4) 


RATE0166 

00373 

168* 


■M5 = I P 01 NT ( 5 ) 


RATE0167 

00374 

169* 


M6 = I POINT (6) 


RATF0168 

00375 

170* 


M7 = I POI NT ( 7 ) 


RATE01 69 

00376 

171* 


M8 = I POINT ( 8 ) 


RATF0170 

CO 377 

172* 


GO TO 120 


RATE0171 

00400 

173* 

200 

CONTINUE 


RATE0172 

00401 

174* 


ILINF = ILINE + 9 


R ATE0173 

00402 

175* 


IGO = 5 


RATF0174 

0040 3 

176* 


IF ( ILINE. GT.NLINES) GO 

TO 220 

RATE0175 

00405 

177* 


TIME = FI LT2 ( I , 52) 


RATE0176 

00406 

178* 


WRITE (6,20) J,FT,TFD,TOD,PFD,POD,ZH,ZOX,RFD,ROD, 

RFOS, RODS, TIME, DPFRATEO 177 

00406 

179* 


1, POO, TFDS, TODS, PCS, PCCI 

PCCIAjOPFS, WDOTFS ,WDOTF, 

DPOS ,WDOTOS» WD0TO,RATE0178 
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0040 6 

l 8C* 

2MRS, WDOTTS, WDOTT, PNSS,CSTATS, ATTC,AT,EPS,AE,CSTASD,G,PCE 


RATE0179 

00456 

181* 

TF (MICPOT.NE. 17) G3 TO 200 


RATE0180 

00460 

132* 

IGD1 = 5 


RATE0181 

00461 

183* 

210 CONTINUE 


RATE01 82 

00462 

184* 

MLINE = MUNE + 9 


RATF01 83 

00463 

185* 

TF (MLINE. GT. NUNES) GO TO 230 


RATE0184 

00465 

186* 

WRITE ( MICROT * 20 ) J , FT ,TFD ,TOD , PFD , POO , ZH , ZQX , RFD ,ROD, RFDS, 

RODS,TIMRATE0185 

00465 

187* 

1 E,DPF, POO, TFDS, TODS ,PC$,PCCI ,PCCI A,DPFS,WDOTFS,WDOTF,DPOS» 

WDOTOS, 

WRATE0186 

00465 

188* 

2D0T0 ,MR S , WDOTTS , WDOTT , PNSS,CSTATS, A7TC ,AT ,EPS,AE,CSTASD,G, 

PCE 

RATE0187 

00535 

189* 

GO TO 110 


RATE0188 

00536 

190* 

220 CONTINUE 


RATE0189 

00537 

191* 

IL INE = 1 


R ATE0190 

00540 

192* 

WRITF (6,60) 


RATE0191 

00542 

193* 

GO TO (90, 130,150,17C,2C0) ,IGO 


R ATS0192 

00543 

194* 

230 CONTINUE 


RATE0193 

00 544 

195* 

MLINE = 1 


RATE0194 

00 545 

196* 

WRI-TE (MICROT, 60) 


PATE0195 

00547 

197* 

GO TO ( 100,140,160, 180, 210), IG01 


RATE0196 

00550 

198* 

END 


RATEi0197 


END OF UNIVAC 11C8 FORTRAN V COMPILATION. 0 ^DIAGNOSTIC* MESSAGE! S ) 


RATED 


SYMBOLIC 

25 

JUN 

70 

12&27S12 

0 

01574672 

14 

198 

(DELETED) 

RATED 

CODE 

RELOCATABLE 

25 

JUN 

70 

12827&12 

1 

01602216 

48 

1 

(DELETED) 








0 

01602276 

14 

102 



& 

i 


& 


HDG 


HDOl 1C- SHIFT 
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£ FOR t * SHIFT»SHIFT 14 JUL 70 17£ 6S19.250 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17606&19 


SUBROUTINE SHIFT ENTRY POINT 000024 


STORAGE USED (BLOCK, NAME, LENGTH! 


0001 *CODE 000031 

0000 *DATA 000015 

0002 *BLANK 015607 


EXTERNAL REFERENCES (BLOCK, NAME! 


0003 NERR3S 

STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


0001 000002 105G 

0002 R 006476 FILT2 


0001 000003 1 106 

0000 I 000000 I 


0002 R 000000 ENGDAT 
0000 I 000001 J 


0002 R 001604 ENGRAT 
0002 R 007433 STORE 


0002 R 002506 FILT1 


00101 

l* 

SUBROUTINE SHIFT 

SHIFOOOO 

00103 

2* 

COMMON ENGDAT (9, 100 1 , ENGRAT (9,50) , FI LT 1( 40, 51 ) 

SHIF0001 

00103 

3* 

1 , FILT2(9,53) ,ST0RE(60,53) 

SHIF0002 

00104 

4* 

DO 10 1=1,10 

SHIF0003 

00107 

5* 

DO 10 J=l» 51 

SHIF0004 

00112 

6* 

FILT1U,J)= FILTKI + 30, J) 

SHIF0005 

00113 

7* 

10 CONTINUE 

SHIF0006 

00116 

8* 

RETURN 

SHIF0007 

00117 

9* 

END 

SHIF0008 


END OF UNIVAC 1108 FOPTRAN V COMPILATION. 0 *DI AGNOSTIC* MESSAGE! S ) 

SHIFT SYMBOLIC 25 JUN 70 12S27613 0 01605122 14 9 (DELETED) 
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HDO 1 1C-SHI FT 
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87 



SHIFT 

CODS RELOCATABLE 

25 JUN 70 12E27E13 

1 01605320 

24 

1 (DELETED) 





0 01605350 

14 

4, 

E 

HDG 

HDO 1 1C-SWA GFR 




• r 
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£ FOP,* SWAGER»SWAGER 14 JUL 70 17G 6S20.299 

UNIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILATION WAS DONE ON 14 JUL 70 AT 17G06G20 


SUBROUTINE SWAGER ENTRY POINT 001216 
STORAGE USED (BLOCK, NAMF, LENGTH) 


0001 

*CODE 

001240 

0000 

*DATA 

000456 

0002 

♦BLANK 

015607 

0003 

COMRAT 

000052 

0004 

ENG 

000022 

0005 

FILES 

000014 

0006 

FUNCTN 

000310 

0007 

ICT 

000012 

0010 

LABELS 

000320 

0011 

ROWS 

000015 

0012 

TIMLST 

000001 

0013 

UNITS 

000004 


EXTERNAL REFERENCES (BLOCK, NAME) 


0014 

OXZOX 

0015 

OGAMMA 

0016 

HZH 

0017 

hgamma 

0020 

RATED 

0021 

SORT 

0022 

NWDU$ 

0023 

NI01$ 

0024 

NI02A 

0025 

NSTOP* 

0026 

NERR3$ 


STORAGE ASSIGNMENT FOR VARIABLES (BLOCK, TYPE, RELATIVE LOCATION, NAME) 
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0000 


000151 

10F 

0001 


000776 

120 L 

0001 


000006 

132G 

0001 


001066 

140L 

0001 


001122 

150L 

0001 


001135 

160L 

0001 


000165 

177G 

0001 


001167 

180L 

0001 


000031 

30L 

0001 


000746 

361 G 

0001 


000061 

40L 

0001 


001045 

41 1 G 

0001 


001162 

453G 

0001 


000104 

SOL 

0001 


000655 

60L 

0C01 


000721 

70L 

0001 


000735 

80L 

0001 


000742 

90L 

0004 

R 

000000 

AC 

0003 

R 

000000 

AE 

0004 

R 

000001 

AT 

0003 

R 

000001 

ATTC 

0005 

R 

000000 

BEGFIL 

OOOO 

R 

000132 

BETAF 

OOOO 

R 

000130 

BETAO 

0003 

R 

000002 

CFNSV 

0003 

R 

000003 

CFSTD 

0003 

R 

000004 

CFSTDV 

0003 

R 

000005 

CFSV 

0004 

R 

000002 

CF1 

0004 

R 

000003 

CF2 

0004 

R 

000004 

CF3 

0004 

R 

000005 

CF4 

OOOO 

R 

000230 

CSTAR 

0003 

R 

000006 

CSTASD 

0003 

R 

000007 

CSTAT 

0003 

R 

000010 

C STATS 

OOOO 

R 

000110 

CSTRMX 

OOOO 

R 

000231 

CSUBF 

0006 

R 

000000 

CX 

0006 

R 

000144 

CY 

0004 

R 

000006 

DCSTAR 

OOOO 

R 

000235 

DCSTA1 

0004 

R 

000007 

dho 

0004 

R 

ooooio 

DOO 

0003 

R 

000011 

DPF 

0003 

R 

000012 

DPFS 

0004 

R 

000011 

DPH 

0004 

R 

000012 

OPO 

0003 

R 

000013 

DPOS 

0000 

R 

000137 

DT 

OOOO 

R 

000111 

DTMAX 

0003 

R 

000015 

ECFS 

0003 

R 

000014 

ECFSTD 

0002 

R 

000000 

ENGDAT 

0002 

P 

001604 

ENGRAT 

0003 

R 

000016 

EPS 

0003 

R 

000017 

ETAC 

OOOO 

R 

000135 

ETACS 

OOOO 

R 

000000 

F 

0002 

P 

002506 

FILT1 

0002 

R 

006476 

FILT2 

0003 

R 

000020 

FSTD 

OOOO 

R 

000225 

FI 

0004 

R 

000013 

G 

0004 

R 

000014 

GAMMA 

OOOO 

R 

000246 

GAMMAH 

OOOO 

R 

000245 

GAMM40 

OOOO 

I 

000113 

I 

0011 

I 

000000 

IBEGIN 

0000 

I 

000116 

IBEGN1 

OOOO 

I 

000117 

I BEGN2 

0005 

I 

000001 

IBL 

0007 

I 

000000 

ICT1 

0005 

I 

000002 

I DUMP 

0000 

I 

000147 

IDUM1 

OOOO 

I 

000136 

IF 

OOOO 

I 

000112 

I FST 

0011 

I 

000001 

IFV 

0005 

I 

000003 

I LINE 

0011 

r 

000002 

INITL 

OOOO 

R 

000242 

INPNS 

0005 

I 

000004 

I NT 

0011 

I 

000003 

ION 

0013 

I 

000000 

IOTAPE 

0005 

i 

000005 

IPC 

0005 

I 

000006 

I PLOT 

0010 

I 

000000 

I POINT 

0011 

I 

-000004 

IQUIT 

0003 

I 

000021 

IRATED 

0011 

i 

000005 

IROW 

OOOO 

I 

000150 

ISKIP 

OOOO 

R 

000226 

ISP 

0003 

R 

000022 

ISPS 

OOOO 

R 

000241 

IT 

0000 

i 

000145 

J 

0011 

I 

000006 

JEND 

0011 

I 

D00007 

JON 

0011 

I 

000010 

JRQW 

0004 

R 

000015 

K 

0004 

R 

000016 

KF 

0011 

T 

000011 

KKPBEG 

0011 

I 

000012 

KKPEND 

0011 

I 

000013 

KKSAVE 

0004 

R 

000017 

KO 

0010 

I 

000010 

LABELS 

0010 

I 

000072 

LABENS 

0010 

I 

000236 

LABRAT 

oooo 

I 

000114 

LLL 

OOOO 

I 

000115 

LLLL 

0011 

I 

000014 

LSTPTS 

oooo 

R 

000244 

MF 

0013 

I 

000001 

MICROT 

0005 

I 

000007 

MLINE 

OOOO 

R 

000243 

MO 

oooo 

R 

000232 

MR 

0003 

R 

000023 

MRS 

0004 

P. 

000020 

MWH 

0004 

R 

000021 

MHO 

0005 

I 

OOOOIO 

MXFILE 

0000 

I 

000120 

Ml 

oooo 

I 

000121 

M2 

OOOO 

I 

000122 

M3 

OOOO 

I 

000123 

M4 

OOOO 

I 

000124 

M5 

0000 

I 

000125 

M 6 

oooo 

I 

000126 

M7 

OOOO 

I 

000127 

M8 

0005 

I 

000011 

NDP 

0005 

1 

000012 

NLINES 

0 007 

I 

000001 

NOCtlNV 

0005 

I 

000013 

NP 

0003 

R 

000024 

PAB 

OOOO 

R 

000011 

PC 

0003 

P. 

000025 

PCCI 

0003 

R 

000026 

PCCIA 

0003 

R 

000027 

PCF 

0003 

R 

000030 

PCS 

oooo 

R 

000224 

PCI 

OOOO 

R 

000022 

PDFO 

0003 

R 

000031 

PDO 

oooo 

R 

000033 

PDDO 

0003 

R 

000032 

PFD 

0003 

R 

000033 

PFDS 

0013 

R 

000002 

PLTAPE 

oooo 

R 

000223 

PNS 

0003 

R 

000034 

PNSS 

0003 

R 

000035 

POD 

0003 

R 

000036 

PODS 

OOOO 

R 

000044 

PTFO 

0000 

R 

000055 

PTOO 

ooco 

R 

000146 

RAT 

0003 

R 

000037 

RFD' 

0003 

R 

000040 

RFDS 

0003 

R 

000041 

RDD 

0003 

R 

000042 

RODS 

oooo 

R 

000141 

SAVF 

OOOO 

R 

000142 

SAVPNS 

OOOO 

R 

000140 

ST 

OOOO 

R 

000134 

STAR 

0002 

R 

007433 

STORE 

cooo 

R 

000144 

SWDOTF 

OOOO 

R 

000143 

SWDDTO 

0002 


007400 

TC 

OOOO 

R 

000222 

TENG 

0003 

R 

000043 

TFD 

000 3 

R 

000044 

TFDS 

OOOO 

R 

000066 

TFOI 

0012 

R 

000000 

TIMLST 

0003 

R 

000045 

TOD 

0003 

R 

000046 

TODS 

oooo 

R 

000077 

TOOI 

0002 

R 

007411 

TR 

0013 

R 

000003 

UNIT 

OOOO 

R 

000227 

HDOTF 

0003 

R 

000047 

WDOTFS 

oooo 

R 

000222 

WDOTO 

0003 

R 

000050 

W DOT OS 

OOOO 

R 

000234 

WDOTT 

0003 

R 

000051 

WDOTTS 

OOOO 

R 

000133 

XF 

oooo 

R 

000131 

XO 

OOOO 

R 

000236 

YF 

OOOO 

R 

000237 

YO 

OOOO 

R 

000240 

ZH 

OOOO 

R 

000233 

ZOX 
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00101 

1* 

SUBROUTINE S HAGER 


SWAGOOOO 

00103 

2* 

PEAL 




IN D NS»ISP»ISPS»IT,K,KF»KO»MF,MO»MR»MRS, MWH,MWO 

SWAG0001 

00104 

3* 

DIME NS I ON 


F ( 9) » PC ( 9 ) , PDFO ( 9 ) , PDOQ ( 9 ) , PTFO( 9 ) , PTOO ( 9 ) , TC( 9 ) SWAG0002 

00104 

4* 

1 



f 

TENG (100), TF 01(9) »T0QI (9) ,TR(9) 

SHAG0003 

00 1C 5 

5* 

COMMON 




ENGDAT ( 9, 100 ) , EMGRAT(9 , 50 ) ,FILT1 ( 40, 51 1 

SWAG0004 

00105 

6* 

1 



t 

FILT2(9,53) ,STORE ( 60 , 53 ) 

SWAG0005 

00106 

7* 

COMMON 

/ 

Cf MEAT 

/ 

AE,ATTC,CFNSV,CFSTD,CFSTDV,CFSV,CSTASD,CSTAT 

SWAG0006 

0010 6 

8* 

1 



t 

C ST ATS ,DPF, DPFS ,DPOS , ECFSTD, EC FS , EPS , ETAC, FSTD 

SWAG0007 

00106 

9* 

2 



f 

IRATED,ISPS,MRS,PA8,PCCI,PCCIA,PCE,PCS, PDO,PFD 

SWAG0008 

00106 

10* 

3 



f 

PFDS,PNSS,PC'D,PODS,RFD,RFDS,ROD,RODS,TFD,TFDS 

SWAG0009 

00106 

11* 

4 



t 

TOD, TODS, WDOTFS ,WDOTOS ,WDOTTS 

SWA GOO 10 

00107 

12* 

COMMON 

/ 

ENG 

/ 

AC,AT,CF1,CF2,CF3,CF4,DCSTAR,DH0, DDO, DPH,DPO,G 

SWAG0011 

00107 

13* 

1 



t 

GAMMA,K,KF,KO, MWH,MWO 

SWA GOO 12 

ooiio 

14* 

COMMON 

/ 

FILES 

/ 

BEGFILflBL ,IDUMP*ILIN£, I NT t IPC,IPLOT,MLINE 

SWAG0013 

00110 

15* 

1 



t 

MXFILE,NDP,NLINES,NP 

SWAGOO 14 

> 00111 

16* 

COMMON 

/ 

FUNCTN 

/ 

CXI 100) ,CY( 100) 

SWAG0015 

f 00112 

17* 

COMMON 

/ 

ICT 

/ 

ICT1 ,NOCGNV( 9) 

SWAGOO 16 

g 00113 

18* 

COMMON 

/ 

LABELS 

/ 

I POINT (8), LABELS (50) , L ABENS ( 100 > , L ABR AT ( 50 ) 

SWAGOO 17 

00114 

19* 

COMMON 

/ 

ROWS 

/ 

IBFGIN,IFV,INITL,ION,IQUIT»IROW,JEND, JON, j row 

SWA GOO 18 

00114 

20* 

1 



t 

KKPBEG,KKPEND, KKSAVE,LSTPTS 

SWAGOO 19 

00115 

21* 

COMMON 

/ 

TIMLST 

/ 

TIMLST 

SWAG0020 

00116 

22* 

COMMON 

/ 

UNITS 

/ 

IOTAPE ,MICROT , PLTAPE ,UNIT 

SWAG0021 

00117 

23* 

EQUIVALENCE < FI LT 2 ( 1 , 51 ) ,TC (1) ) , ( FI LT2 ( 1 , 52 ) ,TR ( 1 )) 

SWAG0022 

00117 

24* 

1 


, (TFNGI1) ,WDOTO) , (TENG (2) , PNS ) , (TENG( 3 ) , PC 1 ) 

SWAGOO 23 

00117 

25* 

2 


, (TENG(4| ,F1) , (TENG<5) ,ISP) , ( TENG( 6 J , WDOTF ) 

SWAG0024 

00117 

26* 

3 


, (TFNG(7> tCSTAP) , { TENG ( 8 ) ,CSUBFI , (TENG( 9 ) » MR ) 

SWAG0025 

00117 

27* 

4 


, (TENG(IO) ,ZOX> , ( TENG ( 11 ) , WDOTT ),(T£NG(12), DCSTA1 ) 

SWAG0026 

00117 

28* 

5 


, (TENG (13) ,YF) , (TENG< 14) , YO) , (TENG( 15),ZH) 

SWAG0027 

00117 

29* 

6 


, (TENG (16) 1 1 T) , (TENGU7I , INPNS), (TENG( 18) ,M0> 

SWAG0028 

00117 

30* 

7 


, (TENG ( 19 ) jMF) , (TENG( 20 ) , GAMMAO ) , ( TENG( 2 1 ) » GAMMAH ) 

SWAG0029 

00120 

31* 

DATA 


CSTRMX 


/ 999999.99 

/SWAG0030 

00122 

32* 

DATA 


DTMAX 


/ 0.1 

/SWAG0031 

00124 

33* 

DATA 


IFST 


/ 0 

/SWAG0032 

00126 

34* 

10 FORMAT l 

1 

OTHF RATIO OF COMBUSTION CHAMBER AREA TO THROAT AREA IS*. 

ESWAG0033 

00126 

35 * 

115. 3, ' . 


THIS IS 

AN OUT-OF-RANGE VALUE FOR THE'/' INTERPOLATION TASWAG0034 

00126 

36 * 

2BLES USED TO COMPUTE THE CONTRACTION RATIO. THE LIMITS OF THE INTSWA G0035 

00126 

37* 

3ERP0LATI ON * /• TABLES ARE*, £15. 8, » T0*,E15.8) 

SWAG0036 

00127 

3 8* 

IF (INITL.FQ.l) 

GO TO 120 

SWAG0037 

00131 

39* 

DO 20 T 

= 

1,9 



SWAG0038 
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00134 

40* 

NOCGNV ( I ) 

= 0 

SWAG0039 

00135 

41* 

20 CONTINUE 


SWAG0040 

00137 

42* 

IF (JON.FQ. 

-1) GO TO 30 

SWAG0041 

00141 

43* 

LLL 

= IROW 

SWAG0042 

00142 

44* 

LLLL 

= KKSAVE 

SWAG0043 

00143 

45* 

IF ( I8SGN1 

•NE. 1) LLL = 1 

SWAG0044 

00145 

46* 

IBEGN1 

= 2 

SWAG0045 

00146 

47* 

GO TO 50 


SWAG0046 

00147 

48* 

30 CONTI NUF 


SWAG0047 

00150 

49* 

LLL 

= 1 

SWAG0048 

00151 

50* 

LLLL 

= JROW 

SWAG0049 

00152 

51* 

IF (IBEGN2. 

EQ.2) GO TO 40 

SWAG0050 

00154 

52* 

TIMLST 

= FILT2( JROW, 52) 

SWAG005I 

00155 

53* 

IQUIT 

= KKSAVE - JROW 

SWAGOO 52 

00156 

54* 

IBEGN2 

= 2 

SWAGOO 53 

00157 

55* 

IF ( IQUIT . 

LE. LSTPTS) LLLL = KKSAVE 

SWAG0054 

00161 

56* 

GO TO 50 


SWAGOO 55 

00162 

57* 

40 CONTINUE 


SWAG0056 

00163 

58* 

IQUIT 

= IQUIT + KKSAVE 

SWAG0057 

00164 

59* 

LLLL 

= KKSAVE 

SWAGOO 58 

00165 

60* 

JROW 

= KKSAVE 

SWAG0059 

00166 

61* 

IF (IQUIT. LT.LSTPTS) GO TO 50 

SWAG0060 

00170 

62* 

LLLL 

= KKSAVE - I QUIT + LSTPTS 

SWAG0061 

00171 

63* 

JROW 

= LLLL 

SWAGOO 62 

00172 

64* 

IQUIT 

= 99999 

SWAG0O63 

00173 

65* 

IF (LLLL.LF 

•0» GO TO 180 

SWAG0064 

00175 

66* 

50 CONTINUE 


SWAG0065 

00176 

67* 

DO 110 I =LLL»LLLL 

SWAG0066 

00201 

68* 

F(I! 

= FILT2(I,M1) 

SWAG0067 

00202 

69* 

PC ( I ) 

= F I LT2 ( I ? M2 ) 

SWAG0068 

00203 

70* 

PTFO(T > 

= F I LT2 ( I > M3 ) 

SWAG0069 

00204 

71* 

PTonm 

= FILT2(I,M4) 

SWAG0070 

00205 

72* 

PDFOl I ) 

= F I LT2 ( I » M5 > 

SWAG0071 

00206 

73* 

POOOt I > 

= F I LT2 ( I » M6 ) 

SWAG0072 

00207 

74* 

TFO I ( I ) 

= FILT2(I,M7> 

SWAG0073 

00210 

75* 

TOOI(T) 

= FTLT2(I,M8> 

SWAG0074 

00211 

76* 

PC 1 

= pcm 

SWAG0075 

00212 

77* 

FI 

= FIX) 

SWAG0076 

00213 

78* 

DCSTA1 

= DC STAR 

SWAGOO 77 

00214 

79* 

3ETA0 

= DOO / DPD 

SWAG0078 

00214 

80* 

C 


SWAG0079 
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00214 

811= 

C 

* 

* calculate 

COMPRESSIBILITY FACTOR FOR GASEOUS OXYGEN - ZOX 

SWAG0080 

00214 

82* 

C 




SWAG008 1 

00215 

83* 



CALL OXZOX (TOOI (II , PTOO< I) , ZOX) 

SWAG0082 

00216 

84* 



XO 

= POOOt n / PTOO(I) 

SWAG0083 

00216 

85* 

C 




SWAG0084 

00216 

86* 

C 

* 

* CALCULATE 

SPECIFIC HEAT RATIO OF GASEOUS OXYGEN - GAMMAO 

SWAG0085 

00216 

8 7* 

c 




SWAG0086 

00217 

88* 



CALL 0G4MMA ( T 001 U ) , PTOO< I) , GAMMAO ) 

SWAG0087 

00220 

89* 



VO 

= 1.0 - (0.41 + (0.35 * BET AO ** 4) ) * XO / GAMMAO 

SWAG0088 

00221 

90* 



WDOTO 

= YO * KO * CF1 * DOO * DOO * SORT ( A8S (PTOOU) * 

SWAG0089 

00221 

91* 



1 . 

PDOO(I) * MWO / ZOX'/ (TOOKI) + 459.67) )> 

SWAG0090 

00221 

92* 

c 




SWAG0091 

00221 

93* 

c 

* 

* CALCULATE 

COMPRESSIBILITY FACTOR FOR GASEOUS HYDROGEN - ZH 

SWAG0092 

00221 

94* 

c 


% 


SWAG0093 

00222 

95* 



CALL HZH 

(TFOim, PTFOU), ZH) 

SWAG0094 

00223 

96* 



BETAF 

= DHO / DPH 

SWAG0095 

00224 

97* 



XF 

= PDFOUl / PTFO(I) 

SWAG0096 

00224 

98* 

c 




SWAG0097 

00224 

99* 

c 

* 

* CALCULATE 

SPECIFIC HEAT RATIO OF GASEOUS HYDROGEN - GAMMAH 

SWAG0098 

00224 

100* 

c 




SWAG0099 

00225 

101* 



CALL HGAMMA (TFOI (I ) » PTFOU J ,GAMMAH ) 

SWAG0100 

00226 

102* 



YF 

= 1.0 - (0.41 + (C.35 * BETAF ** 4) ) * XF / GAMMAH 

SWAGOlO 1 

00227 

103* 



WDOTF 

= YF * KF * CF1 * DHO * DHO * SORT (PTFO(I) * P DFO( I ) SWAG0102 

00227 

104* 



1 

* MWH / ZH / (TFOI (I) + 459.67)) 

SWAG0103 

00230 

105* 



WDDTT 

= WDOTO + WDOTF 

SWAG0104 

00231 

106* 



ISP 

= FI / WDOTT 

SWAGOlO 5 

00232 

107* 



MR 

= WDOTO / WDOTF 

SWAG0106 

00233 

108* 



PNS 

= PCI * K 

SWAG0107 

00234 

109* 



CSUBF 

= FI / PNS / AT 

SWA GO 108 

00235 

110* 



STAR 

= G * PCI * AT / WDOTT 

SWAG0109 

00236 

111* 



CSTAR 

= STAR + DCSTAR 

SWAG01 10 

00237 

112* 



TF (CSTAR 

,GS . CSTRMX) CSTAR = 0.0 

SWAG01 1 1 

00241 

113* 



IF ( I9ATFD.SQ.0) GO TO 60 

SWAG0U2 

00243 

114* 



IF ( ♦2-TR(I> .GT.l.OE-7) GO TO 60 

SWAG0113 

00245 

115* 



IF <3300. 

-FIIT2(I ,3) .GT. 1.0F-7) GO TO 60 

SWAG01 14 

00247 

116* 



CSTAT 

= 6428.561 + 2233.567 * MR - 885.0861 * MR ** 2 + 

SWAG0115 

00 247 

117* 



1 

143.8467 * MR ** 3 - 11.13366 * MR ** 4 + 

SWAG0116 

00247 

118* 



2 

0.3348754 * MR ** 5 

SWAG0117 

00250 

119* 



ETAC 

= CSTAR / CSTAT 

SWA GO 1 1 8 

00251 

120* 



CFSV 

= 1.477818 + 3.907214E-3 * MR - 5.934259E-4 * MR * 

SWAGQ119 

00251 

121* 



1 

MR + 2.873259E-5 * MR * MR * MR 

SWAG0120 
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00252 

122* 

ECFS 

= 

CSUBF / CFSV 

SWAG0121 

00253 

123* 

CALL FATED (I 

1 

PNS,WDOTF,WDOTO,WOOTT,INITL) 

SWAG0122 

00254 

124* 

IF ( NOCONV ( I 

. 

EQ.l) GO TO 60 

SWAG01 23 

00256 

125* 

ETACS 


CSTASD / CSTATS 

SWAG0124 

00257 

126* 

ENGRATCI ,1) 

= 

FI 

SWAG01 25 

C0260 

127* 

ENGRAT (1 , 2 ) 

= 

FSTD 

SWAG01 26 

00261 

128* 

ENGRATd ,3) 

= 

CSUBF 

SHAGO 127 

00262 

129* 

ENGRAT (1*4) 


CFSTO 

SWAG01 28 

00263 

130* 

ENGRATd ,5) 


ISP 

SHAGO 129 

00264 

131* 

FNGRAT ( I ,6) 

= 

ISPS 

SWA GO 130 

00265 

132* 

ENGRATCI. 7) 


CFSV 

SWAG0131 

00266 

133* 

ENGRAT (1,8) 

= 

CFNSV 

SWAG0132 

00267 

134* 

ENGRAT (1,9) 

= 

WDOT* 

SWAG01 33 

00 270 

135* 

ENGRAT (1,10) 

= 

WDQT7S 

SWAG0134 

00271 

136* 

ENGRAT (1,11) 

= 

ECFS 

SHAGO 135 

00272 

137* 

ENGRAT (1,12) 

“ 

ECFSTD 

SWAG0136 

00273 

138* 

ENGRAT (1,13) 


WDOTO 

SWAG0137 

00274 

139* 

ENGRAT (1,14) 


WDOTOS 

SWAG0138 

00275 

140* 

ENGRAT (I, 151 

= 

TOD 

SWAG0139 

00276 

141* 

ENGPATt 1,16) 

= 

TODS 

SHAGO 140 

00 277 

142* 

ENGRATt 1,17) 


WDDTF 

SHAGO 141 

00 300 

143* 

ENGRAT (1,18) 


WDQTFS 

SHAGO 142 

00301 

144* 

ENGRAT (1,19) 

- 

TFD 

SWAG0143 

00 302 

145* 

ENGRAT (1,20) 

= 

TFDS 

SWA GO 144 

00303 

146* 

ENGRAT (1,21) 

- 

MR 

SWAG0145 

00304 

147* 

ENGRAT (1,22) 

= 

MRS 

SHAG0146 

00305 

148* 

ENGRAT( 1,23) 

= 

POD 

SWA GO 147 

00306 

149* 

ENGRAT ( I ,24) 

= 

PODS 

SHAGO 148 

00307 

150* 

ENGRAT (1,25) 

- 

PCI 

SHAGO 149 

00310 

151* 

ENGRAT (1,26) 


PCS 

SWAG0150 

00311 

152* 

ENGRAT (1,27) 


PFO 

SHAG0151 

00312 

153* 

ENGRAT (1,28) 


PFDS 

SHAGO 152 

00313 

154* 

ENGRATd ,29) 

= 

CSTAR 

SWAG01 53 

00314 

155* 

ENGRAT (I , 30 ) 

= 

CSTASD 

SWAG0154 

00315 

156* 

ENGRATd ,31) 

= 

AE 

SHAGO 155 

00316 

157* 

ENGRATd, 32) 

= 

PAB 

SWAG01 56 

00317 

158* 

ENGRAT ( I ,33) 

= 

CSTAT 

SWAG01 57 

00320 

159* 

ENGRATt 1,34) 


CSTATS 

SWAG01 58 

00321 

160* 

ENGRATd, 35) 

= 

AT 

SHAGO 1 59 

00322 

161* 

ENGRATd ,36) 

= 

ATTC 

SHAGO 160 

00323 

162* 

ENGRATd ,37) 

= 

ET AC 

SWAG01 6 1 
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0 0 324 

163* 


ENGRATU ,38) 


ETACS 





SWAG0162 

00323 

164* 


ENGRAT < T ,39 ) 

= 

PCCI 





SWAG0163 

00326 

165* 


ENGRAT (1,40) 

- 

PCCI4 





SWA GO 164 

00327 

166* 

60 

CONTINUE 







SWAG0165 

C0330 

167* 


IF (IF.EQ.l) 

GO TO 80 





SWAG01 66 

00332 

166* 


DT 

= 

TR(I) - ST 





SWAG0167 

00333 

169* 


IF (OT.GE.DTMAX) GO TO 70 





SWAG0168 

00335 

170* 


IT 

= 

IT + (SAVF + 

FI) / 2. 

* 

DT 


SWAG0169 

00336 

171* 


INPNS 


INPNS + ( SA.VPNS + PNS ) 

/ 

2 

. * DT 

SWAG0170 

0033T 

172* 


MO 

= 

MO + ( SWDOTO 

+ WDOTO) 

/ 

2. 

* DT 

SWAG01 7 1 

00340 

173* 


MF 

= 

MF + (SWDOTF 

+ WDOTF) 

/ 

2. 

* DT 

SWAG0172 

00341 

174* 

70 

CONTINUE 







SWAG0173 

00342 

175* 


ST 

= 

TR ( I ) 





SWA GO 174 

00 343 

176* 


SAVF 

= 

FI 





SWAG0I75 

00344 

177* 


SA VPNS 

- 

PNS 





SWAG0L76 

00345 

178* 


SWDDTO 


WDOTO 





SWA GO 177 

00346 

179* 


SWDOTF 

= 

WDOTF 





SWA GO 178 

00347 

180* 


GO TO 90 







SWAG0179 

00350 

181* 

80 

CONTINUE 







SWAG0180 

00351 

182* 


IT 

' =: 

C.O 





SWAG0I81 

00352 

183* 


INPNS 

= 

0.0 





SWAG0182 

00353 

184* 


MO 

= 

0.0 





SWAG01 83 

00354 

185* 


MF 

= 

0.0 





SWAG0184 

00395 

186* 


GO TO 70 







SWAG01 85 

00356 

187* 

90 

CONTINUE 







SWAG01 86 

00357 

188* 


IF 

- 

2 





SWAG0187 

00360 

189* 


DO 100 J=1 ,21 






SWAG0138 

00363 

190* 

.. 

ENGDAT ( I , J ) 

= 

TENG ( J ) 





SWAG0139 

00364 

191* 

100 

CONTINUE 







SWAG01 90 

00366 

192* 

110 

CONTINUE 







SWAG0191 

00370 

193* 


GO TO 180 







SWAG0192 

00 371 

194 * 

120 

CONTINUE 







SWAG0193 

00372 

195 * 


IF (IFST.5Q. 

1) 

GO TO 160 





SWAG0194 

00374 

196 * 


Ml 


IPOINT(l) 





SWAG0195 

00375 

197 * 


M2 

- 

I POINT( 2) 





SWAG0196 

00376 

198* 


M3 


I POI NT ( 3) 





SWAG0197 

00377 

199 * 


M4 


I POI NT (4) 





SWAG01 98 

00400 

200 * 


M5 


I POI NT( 5) 





SWAG0199 

00401 

201 * 


M6 

= 

I POI NT (6) 





SWAG020O 

00402 

202 * 


M7 

= 

I POI NT (7) 





SWAG020 1 

00403 

203* 


mb 

- 

I P 01 NT ( 8 ) 





SWAG0202 
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00404 

204* 


IF ST = 1 

SWAG0203 

00405 

205* 


RAT = AC / AT 

SWAG0204 

00406 

206* 


IF (RAT.LT.CX(l). OR. RAT .GT.CX(IOO) ) GO TO 140 

SWAG0205 

00410 

207* 


00 130 1=1,99 

SWA GO 20 6 

00413 

208* 


IF (RAT.GE.CX(I>.AND.RAT.LE.CX(I+1>> GOTO 150 

SWAG0207 

00415 

209* 

130 

CONTINUE 

SWAG0208 

00417 

210* 

140 

CONTINUE 

SWAG0209 

00420 

211* 


WRITE (6,10>RAT,CX<H,CX(100) 

SWAG0210 

00425 

212* 


IF (MICRGT.EQ. 17) WRITE ( MICROT, 10) R AT, CX( 1 ) ,CX ( 100 ) 

SWAG0211 

00433 

213* 


STOP 

SWAG0212 

00434 

214* 

150 

CONTINUE 

SWAG0213 

00435 

215* 


K = CY ( I ) + (RAT - CX( I ) ) * ( CY( I +1) - CY1IM / 

SWAG02 14 

00435 

216* 


1 <CX(I+1) - CXIII) 

SWAG02 15 

00436 

217* 

160 

CONTINUE 

SWAG0216 

00437 

218* 


IF = l 

SWAG0217 

00440 

219* 


I QUIT = 0 

SWAG0218 

00441 

220* 


IBEGN1 = 1 

SWAG02 19 

00442 

221* 


IBEGN2 = 1 

SWAG0220 

00443 

222* 


ST = 0.0 

SWAG0221 

00444 

223* 


SAVF ' = 0.0 

SWAG0222 

00445 

224* 


SA VPNS = 0.0 

SWAG0223 

00446 

225* 


SWDOTO =0.0 

SWAG0224 

00447 

226* 


SWDOTF =0.0 

SWAG0225 

00450 

227* 


TIMLST =0.0 

SWAG0226 

00451 

228* 


CALL RATED ( IDUM1»PNS rWDOTF, WDQTO,WDOTT , INITL) 

SWAG0227 

00452 

229* 


DO 170 1=1,100 

SWAG0228 

00455 

230* 


TENG(I) = 0.0 

SWAG0229 

00456 

231* 

170 

CONTINUF 

SWAG0230 

00460 

232* 


ISKIP = 5 * IPC 

SWAG0231 

00461 

233* 

180 

CONTINUE 

SWAG0232 

00462 

234* 


RETURN 

SWAG0233 

00463 

235* 


END 

SWAG0234 


£ 
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£ FOP,* Z5P0,ZFR0 14 JUL 70 17G 6G23.698 

UMIVAC 1108 FORTRAN V LEVEL 2206 0018 F5018H 
THIS COMPILA T ION WAS DONE ON 14 JUL 70 AT 17G06G23 


SUBROUTINE ZERO ENTRY POINT 000023 

STORAGE USED (BLOCK, NAME, LENGTH) 

0001 *CODE 000030 

0000 *DAT A 000015 

0002 *BLANK 015607 


EXTERNAL REFERENCES (BLOCK, NAME) 
> 0003 NERR3* 

■P* 

1 

VO 

O 


ST OR AGE 

ASSIGNMENT FOR 

VARIABLES 

(BLOCK, TYPE, 

RELATIVE 

LOCATION, 

NAME) 






0001 

000002 105G 

0001 

000003 HOG 

0002 

R 000000 

ENGDAT 

0002 

R 

001604 

ENGRAT 

0002 R 002506 FILT1 

0002 R 

006476 FILT2 

0000 I 

000000 I 

0000 

I 000001 

J 

0002 

R 

007433 

STORE 



00101 

1* 

SUBROUTINE ZE^O 

ZEROOOOO 

00103 

2* 

COMMON F NGDATI 9, 100 ), ENGRAT (9 ,50 > ,FILT1 ( 40, 51 ) 

ZEROOOO 1 

•00103 

3 * 

l , FILT2<9,53) , SI ORE ( 60 ,53 ) 

ZFR00002 

00104 

4* 

DO 10 1=1,9 

ZER00003 

00107 

5* 

DO 10 J=l* 53 

ZER 00004 

00112 

6* 

F ILT2U ,J>= 0.0 

ZER00005 

00113 

7* 

10 CONTINUE 

ZER 00006 

00116 

8* 

RFTURN 

ZER00007 

00117 

9* 

CNO 

ZER00008 


END OF UN TV AC 1108 FORTRAN V COMPILATION. 0 ^DIAGNOSTIC* MFSSAGE(S) 
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